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TÄRKEITÄ HUOMAUTUKSIA 


Jos olet aloittelija tietokoneasioissa ja olet tottumaton ohjel- 
malistauksien kirjoittamiseen, muista seurata ohjeita jokaista 
yksityiskohtaa myöten, sillä mitään kunnollista oikotietä ei ole 
olemassa. 

Tietokoneesi on hyvin tarkka kieliopin ja välimerkkien suh¬ 
teen eikä toimi kunnolla, jos pienikin yksityiskohta puuttuu. 

Ole erittäin tarkkana numeron 0 ja kirjaimen O kohdalla ja 
huomaa niiden ero. Kaikki tämän kirjan ohjelmalistaukset on 
tulostettu suoraan MSX-tietokoneesta, joten niissä ei ole vir¬ 
heitä. 

Jos aiot tallentaa jotkin näistä ohjelmista nauhalle välttääk- 
sesi niiden uudelleenkirjoittamisen, varmista aina, että nauhu¬ 
risi on hyväksynyt tallennetun tiedon, ennen kuin jatkat 
eteenpäin. 

Huomaat, että kärsivällisyys palkitaan tässä korkean teknolo¬ 
gian maailmassa. 

Ohjelmalistauksia kirjoittaessa kannattaa huomata, että kuva¬ 
ruudussa oleva teksti ei välttämättä näytä samanlaiselta kuin 
kirjassa oleva ohjelmalistaus. Kirjassa rivien pituus on erilai¬ 
nen. 



MUUKALAISET 



Syvältä avaruudesta tulevat muukalaiset ovat aloittaneet 
hyökkäyksensä. Näiden muukalaisten olemassaolo on aina 
tiedetty, mutta ne eivät ole koskaan ennen tehneet mitään 
pahaa. 

Imperiumin puolustajana sinun on tuhottava kahdenlaisia pa 
halaisia. 


Kuinka peliä pelataan 

Liiku käyttäen kohdistinta vasemmalle ja oikealle siirtäviä 
näppäimiä sekä tulita välilyöntinäppäimellä. 
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Pienet vihreät hyökkääjät ovat kymmenen pisteen arvoisia, ja 
paljon ilkeämmät punaiset ovat kahdenkymmenen pisteen ar¬ 
voisia. 

Peli vaikeutuu, kun pistesaaliisi kasvaa. Tällöin hyökkääjät al¬ 
kavat tulittaa takaisin entistä nopeammin ja aina epäonnistut¬ 
tuasi väistössä tuhoutuu yksi kolmesta aluksestasi. 

Ole varovainen liikkeissäsi ja tähtää aina huolellisesti, sillä si¬ 
nulla on vain yksi laukaus kutakin muukalaista kohti. 


Tietoa ohjelmasta 


Rivin n:o 


200-300 

Määritellään spritet muukalaisia, laser-asetta ja 
alustasi varten. 

390-450 

Asetetaan alkuarvot riveille ja sarakkeille, joilla 
muukalaiset ja aluksesi esiintyvät. 

470-650 

Piirretään tausta. 

660-680 

Tulostetaan otsikot. 

690 

Käynnistää törmäyksen tunnistimen. 

720-740 

Liikuttaa alustasi oikealle. 

750-760 

Liikuttaa alustasi vasemmalle. 

780-790 

Testaa, onko laser-ase ampumavalmiina. 

810-870 

Laserin laukaisu 

900-940 

Muukalaisten liikkeen päättyminen 

950 

Päätös; ampuuko 1. muukalainen. 

980-1020 

1. muukalainen ampuu. 

1030-1060 

Liikuttaa 1. muukalaista. 

1100-1160 

2. muukalaisen alkuasema 

1230 

Päätös; ampuuko 2. muukalainen. 

1260-1290 

2. muukalainen ampuu. 

1300-1390 

Liikuttaa 2. muukalaista. 

1420-1480 

Pääohjelman silmukka aliohjelmien kutsumi¬ 
seksi 

1500-1510 

Peli ohi 

1580-1680 

Laskee parhaat tulokset. 

1700-1730 

Tulostaa parhaat tulokset. 

1750-1850 

Kysyy uutta peliä. 

1870-2050 

Osuma muukalaiseen 

2080-2190 

Muukalaiset osuvat alukseesi. 

2210-2320 

Äänitehosteet 
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2330-2520 Räjähdyksen ääni 
2540-2670 Alkuotsikko ja ohjeet 


Ohjelma: MUUK-JS 


1 0 0 

REM 


i 1 0 

REM 


i 2 0 

R E M 

* MUUKALAISET 

1 0 

140 

R E M 
REM 

* 

-f- -Sr'- f- -f- f + -t- ■+■ -i- ■+• -T- 4- f 

15 0 

SOS 

JB 2540 


1 k- H R — R H D — 3 ) 
i?0 SCREEH 2 


180 

OPEN ”GRP:" RS 1 





190 

ON SPR I TE SOSUB 1 

870 




200 

REM MaäR i i ti I aaN b 

PRITET 



2 i 0 

F U R K —t T U o 





220 

p ■$="" 





230 

FOR J=W TO 7 





240 

REflD d$ 





250 

p f. = p f. + C H R $ < U H L < " & 

H"+D$ 

> 



2 6 0 

NEXT J 





270 

SPR ITE$ <K> =P$ 





280 

NEXT K 





290 

REM SPRI TE DATA 





300 

DflTfl 24,01,30,01, 

80,81 


80, 

2 H 

310 

DRTfl C3,FF,DB,FF, 

C 3, BD 

, 

1 O , 

66 

320 

DAT H 18,18,FF,FF, 

FF, FF 

? 

FF, 

FF 

3 3 S 

D H 1 H M H , H H , 0 H , H H , 

£1K _ PlH 

7 

08, 

0 0 

340 

D H T H M H , 0 H , 0 K , 0 o , 

08,08 

, 

ö O , 

8 S 

350 

D H T H. 24,01,8 0,01, 

80,01 

? 

80, 

2R 

j h 0 

DflTfl 3C,7E,BD,BD, 

f* F 7 ■ i L- 

, 

42, 

81 

370 

DflTfl 3 C, 7 E, B D , B D, 

h F ? o L- 


18, 

18 

3 8 Ei 

R t fi fi L K U fl R U 0 T 





390 

CL = 8 





400 

U L* “ o 





410 

BS = 3 





420 

fiC = 32 





430 

flR=10 





440 

B C = 3 





450 

BR= 10 
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460 REM TAUSTAN PIIRTÄMINEN 

4 / U L- 6 L U K X , 1 , 1 


4H H 

C L b 




499 

REM PLh 

NEETAT 



5 Ö 0 

IJ X h' IJ !_ h ( 

190 3v ) 

7 1 '-* ? I 

1 ,,, 1 . 3 

5 i 8 

PHI NTC 1 

90,22>, 

-i -f 

1 1 


520 

CIRCLE < 

190,22> 

, I6 7 6 

c cr 0 g cr 

530 

CIRCLE< 

190,2 3 > 

15, i 

, j « J 1 • j « 5 1 s X 

5 4 Ei 

REM TÄH 

DET 




550- FOR 3=1 TO 15 
56 9 R1 = IH T < R N D < 1 > : + : 2 4 0 > + 1 0 
570 R2=INT f RND <1>*90 > +10 
580 CIRCLE CR1,R2>,1,15,,,1.3 
590 HEKT J 

680 CIRCLEC 50,70>,16,9,,,1.3 
610 P HIN T f 5 0,7 0 > , 9 
620 PRESET f 8 , 1 20 > 5 
630 REM UUORET 

6* 4 U DRR U F 3 F 1 6 E 1 2 F 2 U R 2 E 2> U R 2* F 2 2 R 2 E 1 7 F 
4 0 R 1 Ei E 3 3 R 9 F 3 2 “ 

650 E 1 AIH T C 1, 161 > , 5 
6 6 0 P R E S E T < 3 Ei, 0 > 

670 COLOR 15,1 

680 PR I NT#1,“ALUKSIA: 3 TULOS: 0“ 

6 9 0 S H K I T E O N 
780 GOTO 1420 

7 1 0 R E M ODOTTAA LIIKE - TRI AM F' U M Fi K a S K Y a 
NÄPPÄIMISTÖLTÄ 


20 

K$=IMKEY$ 


3 0 

IF Kf< >CHR$ C28> 

U R L- L )i:7 F H E H «' 5 0 

40 

C L = C L + 1 


50 

IF K$< >CHR$ c 29> 

OR CL <8 THEN 770 

60 

CL=CL-1 


70 

PUT SPRITE 3, CC 

L + : ö , 1 0 0 ,- f 767 3 

8 0 

IE K$ < > C rl K '$ < 3 2 .) 

THEN 880 

98 

IF LS=0 THEN 38 

0 

00 

REM AMPUUIHENR 


10 

LS=LS-1 


20 

h — 1 


38 

GOSUB 2220 


4 Ei 

E U R J — 1 6 9 1 U 1 

STEP -7 


850 PUI SPRI TE 5, CCL*8,J >,15,5 
8 6 0 N E X T 3 

870 PUT SPRITE 5,<0,209>,,5 
880 RETURN 
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h y y R E M ”1 U U K H L H I o T E H L i I K ti , a a i i s ? 
900 IF BC>3 THEN 950 
910 Rfi=0 

920 BC = 32+1NT<END<1>+ 2 > 

930 PUI SPRITE 2,<8,209),,2 
940 RETURN 

95 0 IF R H D < 1 > >. 2 + S C■■•" 150 THEN 10 3 0 
960 IF B C 4 7 O R B C ’> 2 8 i H E N 1W 3 8 
9 7 0 R E M M U UK ALAISET H M F' U U- H T 
980 FZ=2 

99 0 F O R 3=B R* 8 + 8 T O 19 8 S T E P 8 


1 0 0 0 

PUT SPRITE 48 

: BC + 8 ? 3 

), 11,4 

1 0 1 0 

NE KT 3 



1 020 

PUT SPRITE 4,' 

C 0,209 > 

? ? 4 

1 030 

BC=BC-2 



1040 

SOUND 7,56 



1050 

PLAY " O4L60A “ 



1060 

PUT SPRITE 28 

i. B i_: + h , B 

R : + : 8 ,6,3 


1870 RETURN 

18 80 IF A C < >3 2 THEN 12 3 0 
1090 REM MUUKALAISTEN LIIKE 
1100 I F R N D C1>>,3 THE N 118 0 
1110 PUT SPRITE 7,<0,209),,7 
1120 PUT SPR I TE 8,<U , 209> , 7 8 
1130 AA=1 

114@- BR= INTCRNDC 1 >* 18) +2 
1150 BC = 31 +1 NT <RNDC1>*2> 

1160 LS=1 
1170 RETURN 

1180 PUT SPRITE 7, C0, 209)„7 
1190 PUT SPRI TE 8,<0 7 209 > 7 7 8 
1200 AR= INTC RND C 1 >•+18 > +2 
1210 L S =1 
1220 flC=1 

1230 IF RND C 1 > > . 01+SC.■•-250 THEN 1300 

1240 FZ=2 

1250 SOSUB 2220 

12 6 ö F U R J=A R : + : 8 + 8 T U 19 8 8 T h. P 8 
1270 PUT SPRI TE 5,<AC + 8,3 >,11,5 
1280 NEKT 3 

1290 PUT SPR I TE 5, C 0209 ) ;! 5 
1300 AC-AC+l 

1310 IF LF.'"2=INTCLF,--2> THEN 1370 
1320 SOUND 7,56 

13 3 0 P L A Y “ O 2 L 4 0 D " 
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1770 

PRINT 


1780 

Kf =INKEY$: IF 

.± — n ti -r s_| sr hi 1 “7 O sT-j 

I nt.il i. : w O 

1790 

PLHY "05C" 


1 8 0 0 

IF K$< >"P“ TH 

EN 1840 

i s i 9 

S C = 0 


1820 

SCREEN 2 


IKXM 

GOTO 390 


1840 

IF K $ < > " L " THEN 1780 

1850 

80 | 0 2680 


i o b y 

REM SPRITE-T5 

RMÄYS 

1870 

SpjJTTF OF F 


1880 

IF FZ=2 THEN 

2060 

1890 

1 J !-i 1J E* 2 3 3 y 


1 900 

IF CL=flC THEN 

SC = SC+10 t L S h 

1910 

PUT SPR I TE 6, 

C L + 8 , -J + H .5 , b , 6 

1920 

PUT SPR I TE 5, 

<0,209> , , 5 

19 3 8 

PUT SPRITE 7, 

<0,209 >,, 7 

1940 

PUT SPRITE 8 , 

<: 0 , 209 > , , 8 

1950 

PUT SPR I TE 2 , 

(ö, 209 >,, 2 

1960 

PRESET < 190 , 0 ) 


197 0 

L- U l_ U K 1 


19 8 @ 

PR I NT # 1 , S T RIN G f- < 5,219 > 

1990 

COLOR 15 


20 £10 

PRESET < 190,05 


20 1 0 

PRINT#!,SC 


2020 

F’ U i S P R! IT E 6 , 

e; 0.209 > , , 6= 

2830 

J = 1 0 


2040 

HC=32;BC=3 


20 5 0 

GOTO 2190 


2060 

BS=BS-1 


2070 

GOSUB 2330 


ci y o y 

PUT SPR I TE 6, 

< C L + 8,J - 8 > ,6,6 

2098 

IF BS=0 THEN 

1500 

2100 

L- l_ — 3 


21 1 0 

PRESET C 90, 0 > 



2120 COLOR 1 

2130 PRIHT#i , SIR I N6$- < 4,2 19 > 
2140 COLOR 15 
215 0 P R E S E T t 9 0,0 > 

2160 PR IUT#1,BS 

2170 PUT SPRI TE 6,<0,209 >, ,6 

2180 .1=190 

2190 SPRITE ON 

2200 RETURH 
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2210 

REM ÄÄN HEH 

3 

3TEET 



222 ö 

SOUND 

6 n 15 





2230 

SO HMD 

7 ? 8 





2240 

SOUND 

8 ? 1 6 





2 2 5 ö 

SOUND 

9, 16 





2 2 6 8 

SOUND 

10, 16 





2 2 ■■ y 

SOUND 

1 1 , 0 





2 2 8 9 

SOUND 

12,16 





v q a 

SOUND 

13 , 0 





2 d y y 

5 n * i |i p 

*7 *=-£. 





2 319 

F U R D 

E=1 TO 


3 0: N E K T D E 




R E T U E 

N 






SOUND 

0 , 0 





23 4 8 

SOUND 

1 ? 'D 






SOUND 













V f-, ia 

SOUND 

•~t -t 





2378 

SOUND 

4,255 






S 0 U N D 






2 8 “■ y 

s ij y H n 

6 , 3 ö 





v 4 0 g 

SOUND 

7 , 0 





241 0 

S O U H D 

y, |6 





2420 

SOUND 

9 , 16 





2438 

SOUND 

19, 1 6 





244ö 

bUUflU 

1 i n kj 





2450 

SOUND 

I 2 r . 5 





V 4 h H 

ft : 5 KJ T-. 

.“s L.= *_J f 1 L- : 

13 7 8 





2470 

F 0 R D 

E = 1 T O 


30:NEMT DE 



._i 4 8 0 

S O U n D 

1 2 7 □ 6 





2 4 y 0 

S O Li H D 

13,0 





2 Pi H M 

S 0 U H D 

h _ y 





251 0: 

F 0 R D 

p — 1 T f\ 


30 : NEKT DE 



2 d 2 y 

“rs - r • “ Kj 

" d. ! U H f 1 





2 5 h 

RFH 0 

TS I KKO 





cl Li 

UULUK 

15,1 





25 5 0 

L- L 8 






2560 

L 0 C HI 

E 1 0,5 





O — i~i 

P K I N \ 

11 M ij 

IJ 

K H L H I 

S L 

T 

i 

2 5 8 0 

LO f: RT 

E 0,8 





2590 

F* R IN T 

'* R1 u k 

s 

esi 1 i i k k u. u. 

O I 

kealle ja 

m a s 

a ui lii ali 

ekohd i 

s 

t i Ti f! ä p p- Ö. I i'i'i 1 


t rh' T NT 

2 6 y 0 

P R I N T 

1 H |'j'j p u 

Ui 

ine n v älli y 

ö T : t 

i Ti ö. p p q i m eliö 

= P R I i 

iT 






dtf i y 

PRINT 

“Täh t 

ö. 

a hyvin, si 

n ui 

13 O Ti y a I Ti 

55 y k s 

i iau- 

-kau.s 

j- 

1 L d lii Ul Li k .1 -ui 

s 13 k o h t i 
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' ö 

2 ö 

L U C 

:d 

m 

0 

, 18 

’ b 

30 

PRI 

HT " 

P 

eli alkaa. 

Ti 

ö-PP 

o. i n 

tä" 



r-. 

40 

K f- = 

lii K E 

Y • 

$ 

' ’r~ t 

50 

IF 

K*=" 

n 

THEN 2640 

s 

60 

PLh 

Y "O 

CT i 
._£ \ 

L30C" 

f. 

70 

Rh ! 

URH 



:6 

80 

END 
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KIELLETTY KAUPUNKI 



Kerrotaan tarinaa hylätystä, kaukaisella planeetalla sijaitse¬ 
vasta kaupungista, jota voimakentät, aistiharhoja aiheuttavat 
kaasut ja vieraat elämänmuodot vartioivat, sillä kaupungissa 
on kätkettynä tarunomainen aarre. Onko sinulla rohkeutta 
lähteä etsimään aarretta? 

Kaupunki on aivan suuren aarniometsän laidassa, lähellä 
kimmeltäviä järviä. Pahaa-aavistamattoman vieraan valitta¬ 
vana saattaa olla hopealusikoita, sinisiä juomia, metallikiek- 
koja ja mahdollisesti jopa kuolema. Huomaat kuitenkin, että 
kaiken käydessä oikein vaikeaksi voit aina pysähtyä vaikkapa 
juomaan vähän limonaadia. 


16 


Kuinka peliä pelataan 

Anna syöttötietoina verbi ja sen jälkeen jokin substantiivi, esi 
merkiksi OTA LUSIKKA, OTA LAATIKKO, OTA MUISTI- 
VIHKO jne. Ilmansuuntia voidaan merkitä niiden alkukirjai¬ 
milla eli p:llä, e:llä, i:llä ja l:llä. 

Kaikki syöttötiedot on annettava pienaakkosin. 

Seikkailupelin kirjoittaminen on hyvin aikaavievää puuhaa, 
sillä kirjoittaessa täytyy olla huolellinen, varsinkin DATA-lau- 
sekkeissa, koska muutoin ohjelman looginen rakenne kärsii 
ja peli ei toimi oikein. Tästä syystä onkin suositeltavaa, että 
et kirjoita ohjelmaa sisään yhdellä kertaa, vaan kirjoitat vain 
sen verran kuin hyvin jaksat ja tallennat ohjelman nauhalle 
vähän kerrallaan. Seuraavalla kerralla lataat listauksen taas 
tietokoneeseen ja jatkat ohjelman kirjoittamista, kunnes saat 
sen valmiiksi. 

Pelissä on myös tallenna- toiminto, jolla voit tallentaa pelitilan 
teesi nauhalle, ellet voi pelata kerralla loppuun asti. Vastaa¬ 
vasti voit myöhemmin jatkaa jo saavuttamastasi tilanteesta 
käyttämällä lataa- käskyä. 


Tietoa ohjelmasta 


Rivin n:o 


200 

Tilavaraukset taulukoille, joissa ovat mahdolli¬ 
set suunnat, esineiden sijainnit ja kuvaukset 
sekä huoneiden kuvaukset. 

230-360 

Suunnat, esineiden sijainnit sekä kuvaukset 
luetaan DATA-lausekkeista. 

400-640 

Kirjoittaa peliohjeet. 

690 

Tyhjentää näytön yläosan. 

710 

Sijaintipaikan kuvaus 

730-760 

Tutkii, onko tässä paikassa esineitä. 

780-820 

Ilmoittaa näkyvillä olevat esineet. 

840-910 

Ilmoittaa mahdolliset suunnat. 

930 

Piirtää viivan kuvauksen alle. 

980-1000 

Seuraavari ohjeen syöttö 

1010-1070 

Erikoistapauksia 

1090 

Etsii ohjeessa olevan välilyönnin. 

1110-1150 

Erottelee verbin ja substantiivin sekä antaa 
niille numeroarvot. 



1160-1180 

Tunnistamaton verbi tai substantiivi 

1200 

Hyppää oikeaan kohtaan verbiä varten 

1220-1270 

Verbi Paina 

1290-1400 

Juo 

1420-1640 

Laita 

1660-1830 

Lue 

1850-2090 

Vedä 

2130-2260 

Käytä 

2270-2340 

Pudota 

2360-2540 

Mene, liiku 

2560-2740 

Ota 

2760-3100 

Tutki 

3120-3380 

Avaa 

3390-3400 

Verbien ja substantiivien DATA-tiedot 

3410-4160 

Suuntien ja huoneiden DATA-tiedot 

4170-4390 

Auta 

4400-4420 

Viive 

4460-4660 

Tallenna pelitilanne nauhalle. 

4680-4880 

Lataa vanha peli nauhalta. 

4890-4970 

Epäonnistuit. 

4980-5020 

Onnistuit. 


Ohjelma: KIEL-JS 

1 k1 r*;. |*1 t- 

4 ' '¥ : i : ■¥ 4 - 4 - 4 4 - -+• 4 - 4 - 4 ‘ 4 - 4 - : t- 4 - 4 - 4 - 4 - 4 - 

11 y R E M 

4 : 


129 REM * KIELLETTY KAUPUNKI * 

130 REM * * 

1 «4- y R E M : 4 : : 4* *t : 4 - : 4 :: 4 : : 4 : 4 - 4 - : i : : f : + + : t : 4 '- '-t : *4* 4 ' 4 ' ; 4 : -T- 4 - 


1 O M 

1 6 ti 
170 

•i s“s 

i O ti 

CL S 

CLEAR 2000 

COLOR 1 ,15,4 
LOCfiTE 8,10 



190 

PRINT "KIELLETTY 

KAUPUNKI" 


200 

L-' R i- f 
210 

D IM M < 6 0 ,4J, 0 B < 3 8 
: 4 5,0 L ( 3 0 5 

GOTO 3390 

> , 0 J i < 3 0 > , f 

?$< 68>, 

220 

N 

REM LUKEE RLKUARU 
KUVAUKSET 

UT JA ES im 

- 1 DE 

230 

240 

25ö 

260 

READ Ui, N$,EN,NN, 
FOR J=1 TO RH 

FOR K=1 TO 4 

READ M<J,K> 

CP 



2 MSX-pelikirja 
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tali 

s n t 

3 a muistii 

fi = T ö. 1 1 Ö 1 fi k Ö. S k V jr- a 


r i i 

t td 

ä r a i j. tf m i a 

Lirj oitä s a fi a 1 a t 


1 "i a i 

u. — X. 

essasi j a t k a a 

v a n h aa peliä.," 

f— ' 

61 0 

Pk i 

HT;PRINT:PRINT 



620 

P R i 

HT “Peli alkaa 

= Paina jo tai n 


Tl ö. p 

P ö. i 

-itä. . . " 



630 

H 0 $ 

— IN K t V '$ 



r— . *4 k! 

t r~ 

1 r 

N0$="" THEN 63 

0 


h “i k! 

CLS 



f— 

6 fc» y 

GOTO 970 



6 T ö 

P p r» 
k !_ n 

PRIKRN KUUHUS 

, H a K Y UIL L a U L E U H 

f — 

T 

i 


ESINEET Jfl M 

R H D OLLIS E T S UUNN R T 


680 

LOC 

H T E 0,0 



6 9 0 

P k i H T P 8 f: E 'i- c 2 5 H ) 

; SPRCEf-< 255 ) 


700 

LOC 

fi T E 8,8 



T i (a 

i i 

FRI 

HT “Olet ";R$( 

CP) 


720 

REM 

TfiRRISTfifi U N K 

n tässä 


PR IN 

H S S 

H ESI 

HEITÄ 


“? O Ci 

FOR 

J=1 TO HH 



740 

IF 

OL < J > =CP THEN 

7 8 8 


75ö 

H E X 

T T 

1 • J 



7 6 9 

G 0 T 

0 840 



/ 7 y 

r t r*i 

KI R J UI T 1 Fi H P r 

T k ’ P: F *“♦ H 


OLEUHT 

ES 

IH E E T 


7 H 0 

PR I 

NT:PRINT "NÄKY 

UILLÄi "; 


7 y y 

h U K 

J=1 TO NN 



8 0 0 

I F 

U L_ k 3 s ■( i~* F' T H E H 

820 


8 i 8 

PRI 

NT QJ$<J> 



8 2 0 

HE K 

T J 



8 3 8 

R E M 

M H H D U L L IS E T I 

LMRNSUUNNRT 


840 

PR I 

NT:PR I NT "SUUN 

N RT : 11 ; 


S 5 0 

FOR 

J=1 TO 4 



8 6 0 

IF 

M K C P , J > = 0 0 K f*] 

<CP,5 > =8 8 THE H 89 @ 


H sf k"I 

PR I 

NT DR f- < J ) ; 



889 

jji p ~ 

1 



o y y 

H L K 

T J 



900 

IF 

D F = 0 THEN PR IN 

T 51 O 51 


918 

D F = 

0 



y ii y 

f - 1 rr’ : 

NT;PRINT 



930 

PRI 

NT STRIN 6 $ < 37, 

21 9 > 


940 

IF 

CP=46 OR CP = 25 

HR f;p“ i 4 HP rprh 


CP= 1 

0 THEN 4430 


r~ 

Q —. Ci 

KET 

U R N 


— 

970 

P K 1 
SOS 

HT 

HR f—: 7 fi 
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9 8 9 L U C H i b 0,2 3 1 P RIN" 


9 9 0 I 

H P U T ** H Ti Ti 3 oh i tf e t 11 

; IP* 

1000 

PR I 

r-i T 

: i 1 


1 U10 

I F 

T Q -tr — H - , : 4—. tf T Li CT N 

i r — -3 U. X. -=3 ! rf P11 

4170 

<1828... 

T £T 

I P $ = ■' tai le 'n n a 11 

THEN 4450 

mää äU 

I F 

IP*=“lataa" THE 

H 4678 

1 8 4 0 

1 r 

lp-$=» P “ THEN IP 

— _ _S_ sE 

■ — m Li n P u 11 

1 MFIPi 

I F 

i r 1— 5= i li fc. [ 1 i r 

•+- — III Li 11 Li t Li 

1 Pf i~. H 

i p 

i h' T = 11 1 IHbN ir 

f-= 11 m e n itä" 

1 k? 7 0 

IF 

i P* = " i ” ! HbN I P 

— u l ii 0 Ti lö.Ti“ 

1 080 

O ! A 

R h M 

ETSII U Ä LILY öNNIN S Y 61E TY 

T T il f-. e T Q 

1090 

^ 

H S T E(1,14$,” "> 


1 100 

p iZ hl 

EROTTflfi UERBIN 


1110 

UBi 

= LEFT $■ < IPT, 3 j 


I 1 ilö 

NT f 

= MID* ( IP $, X+l , L 

E N ( IP $ > -14 > 

1 1 ’ 0 

REM 

ERUT ! HH SUB8iH 

NT 11UIH 

1 140 

NO f 

= MIDf-< IP$, X+l , 3 


1150 

U B = 

< I H SIR ( 1 , U $ , y B f ■ 

.) 4- i i / o 

118 y 

T F 

UB<1 THEN PRINT 

" b Ti y i'i'i I'i'i ä r r 

y e r fc 

i Ö. n 

"ISOTO 970 


1 1 fÄ 

N0 = 

< I NSTR ( 1 , N $,N 0 $ 

) 4- ci o 

1180 

I F 

N0<1 OR C INT < NO 

> < >N0 > THEN 

!l T UL Tl 

t ö iTl 

a t o n s a n a y e r b i 

Tl j ö. 1 k O S Ti s !i 


j. i w 

h 


5 kM r, j |—11 _j_ X 0 E E U b H 8 I A v H P 

O H J E L M H K O H D H N 


i fl U H 


1280 OH UB SOlO 1298,2 780,2350, 1660, 1850, 

1220 IF H0=24 RND 0B<1>=1 RND CP=44 THEN 

1 2 3 ö P k IN l ” U o i frt 3 keTit t ö. k a t o s i ! " 

1240 M(44,10=11 

125 0 R $■ ( 4 4 > = “ 1 Q P i k ij 1 k H t U Ti Ti s 1 i SS3 i “ 

12 6 ti S 0 T 0 9 7 0 
12 7 £i S 0 T 0 2 6 8 ti 

1290 IF QEK7 > = 1 RND 140 = 21 THEN 1300 ELSE 
1 3 9 0 

1 Ci Ci P P T N T ” Tnta 


t o d e 1 1 a o u t o a t a p a h t u u ! " 


HIIHiiH 4. il HM 


Ti H a 1 Ti •: 


















21 


40 

r~! F“i T M X 

rkiil i 

“Lattia lii 

k a h t i 

! " 

58 

u u y U 6 

4 4 Ei Ei 



68 

PRINT 

"OOH! Latti 

a tun 

t u. u s o r t u v a n ! 

7 Ei 

60 SUB 

4400:SOSUB 

4400 


8 u 

SO TO 

4890 



9 0 

PRINT 

" u 1 i p a o u t o 

ehdo 

t u. s ! E n u s k o, 


että. m o i n t e h d ä n 11 n * 
14 0 0 S 0 T 0 9 7 0 
1418 REM L HIT H 


1420 

IF NO 

=2 AND CP=13 

A N D u B ( 2 > = 1 T H h N 

1430 

ELSE 

1570 


1430 

PRINT 

" K u u. 1 u u k u. ffi ffi ai 1 1 n e m h u rise y a 

ö. ö. Tl 

i ! " 



1440 

PRINT 



1450 

SOSUB 

4 4 g g 


1460 

PRINT 

“ U o i 1 k o, t ö. ffi o. o I la i o p u m a 1 k u. a Y '* 

1470 

PRINT 



1 4 8 0 

SOSUB 

4480 


1490 

PRINT 

"Jotain tul 

e e u l o k o n a e si t a ! “ 

1500 

PRINT 



1 5 1 e 

SOSNR 

4 4 Ei Ei 


1520 

PRINT 

" S e o Tl o h u. t 

iti e t a 1 1 i t a t i k o; 

-- u. u. Ti 'n i I I e e n -3 u .3 i hi e n 

k o k o i n e n. “ 

1530 

■SOSUB 

4 4 Ei 0 


1540 

OB < 2 ) 

= 0 


1550 

OL < 3 > 

= 13 


15 6 ti 

SOT 0 

970 


1570 

IF NO 

= 3 AND CF' = 39 

AND OB < 3> = 1 THEN 158 

ELSE 

1620 



1580 

PRINT 

" S a 1 a s e i n ö. 

s i i r t y i s i v u u n j a 

pal 

j as t i 

k a p 1 e a n o y i a u k o n ! " 

1590 

M <. 39 , 

1 > = 16 


1690 

K t < 3 9 

y — " O y i a u k o s s 

Sf 

1 fc, 1 £l 

SO TO 

970 


1 1> 2 £1 

IF NO 

=5 AND CP=2 

AND OB < 5 > = 1 THEN 2140 

1630 

PRINT 

" M i t ä ä n e i 

t ap a h d u» Y rit ä j o tai n 


eri- laista." 

1640 S 0 T 0 9 7 Ei 
1650 REM LUE, TUTKI 

1660 IF <NO = 8 DR M0=19> HMD <0B(S>=1 DR 
0 L ( 8 '} = C F’ > THE H 167 Ei EL S E 1 b 9 Ei 
1678 PRINT "Si i n ö. lukee: apteio anis 
ö m 1 ö h. E 'n m m ö. r r ä 3 1 k u u n k a a n . E Ti k ö. 

s e o Ti ifi u. u — k alaist e n k lal t ö .. " 

16 8 0 S 0 T 0 9 7 £i 



22 





















23 
























24 


4 2 0 

IF CP=32 

AND 

0 ti (. 6 ) — 1 H N D 

NO 

=31 !HEH 

4oö 

ELSE 244 

0 




4- 3 0 

S*I *. ■-+ f — 

36 




4 4 0 

REM K11L 


Y SUUN TR 



459 

IF HO<28 

OR 

HO >31 T t-iEH 24 

70 


4 6 0 

I F fl < C F', 

N 0 - 2 

7 > < >0 THEN 24 

90 


4 7 fi 

P RIHT "E 

Ti v O 

i mennä siihe 

Tl 

suuntaan!“ 

4 8 0- 

0 u T u y 7 0 





4 0 

IF M<CP, 

N U ~ 4 

7)088 THEN 2 

53 

n 

5 8 8 

PRINT "E 

Tl v O 

i me h nä sinne 

V 

isiä! " 

5 i 8 

SOTO 970 





3 2 0 

REM SfiLL 

ITT U 

SUUNTA 



5 3 0. 

C P = M i C F', 

HO-2 

7 > 



4 0 

GOTO 978 





5 5 0 

REM TfiRKISTR 

ESINEET 



0 ö 0 

IF N0=27 

THE 

N 2570 ELSE 2 

62 

0 

5 =; “ £S 

F U R J — I 

to h 

N 



580 

IF OB < 3 > 

OI 

THEN 2660 




25 9 0 P R IH T O 3 f < J > 
2600 NEKT 3 


2620 I 

p 

NO 

_-i “7 

— i. 5* 

THEN PRINT 

" Huh 

! V r i t ä t 


Ti O S Id 

a 

s i 

t ö | 

"IGOTO 978 




.s y j. 

p 

NO 

= 23 

THEN PRINT 

"En 

m o i o 11 a a s i 

t ö. ? 

£ 0 O Ti 

i 

LI LL 

u a t 

t n £ 01 “ Ti ö. ö. 

n ! " ; G 

0 T 0 9 7 0 


v i- t 4 Sf T 

F 

NO 

= 26 

THEN PRINT 

" 3 os 

I u u 1 e t m i n u 

Tl 

kanta 

u a 

Ti 

t u. o 

t a h O i Yi 0 I £ — t 

a r o ii i 

j a k e 11 a y 


iYi P s o. r 11 

Ti S 

5. - 

s a 

at et s i ä 

i tse 1 

i e s i u u d e n 


k a m e r 

i n 

ii 

;GOTO 970 




2650 I 

F 

H n 

> 13 

THEN PRINT 

"Et 

y o i o 11 a a 


sitä ! 

H a 

60 

TO 

970 




Z6TET8 F 

f J k' 

-J 

= 1 

TO 13 




2670 I 

F 

OB 

4 j y 

= 1 THEN CN = 

CN+1 



2680 N 

EK 

i 

3 





p f s n n t 

H 

C ii 

>4 

THEN PRINT 

"En m 

o i k a n t a a 


tr i i td fil |-‘ 

Ö. Ö. 

! 51 

- ! ! f 'i 

= 0; G 0 T 0 9 7 0 




7 n Pi f: 

|*1 rz 

0 






2710 I 

p 

N f| 

=3 

T H t N 2720 E 

LSE 2 

730 


2 720 M 

C 4 

0 ? 

1 S — 

O O 




2 7 3 0 I 

r~ 

r 

i~f | 

< N 0 

>=CP THEN 0 

L < H 0 > 

= 0:OB < HO > = 1 ; 


PR I NT 

55 Cr 

a 

O Ti 

£ i n u 'n« “ EL S 

E PRI 

r.j T £ * li jT- 


i ole 

t Ö. 

ä i 

i ö. 1 

"I GOTO 970 




274 0 Li 

UT 

0 

9 7 0 





O “7 pl p 

PM 

T 

U T K 

T 




o “ p L 7i ? 

p 

< H 

f*| r= p. 

AND <0B<8> 

= 1 OR 

o l <s y =cp yy 

f: f« 

!_f 5T 









25 


II 

o 

1 

i. 

H H D U B 

n 

1 

UK 

0 L < 1 1 ) = C P ) ) 

THEN 

2 i 

70 ELSE 

2 8 6 0 




2770 

I F" 

CP<>26 

THEN 


2 8 8 Ei 


2 7 8 0 

PR 

I NT "Hmm 

tt 8 > 

T 

i 

u. o u 

a I o t u. n t u u 

P a h a 

1 f- 

•3 8 

Mi 

f 

Ö. T! ö. Tl 

tämäkin iBikKdinl 

Pi.i. t t -3 

•3 

S X 1 iTi ä 

paro 

•i 

I 1 en 

•i SS 

I 8 8 8 

2790 

PRINT 





2880 

IF 

L- P 2 o 

THEN 


2840 


2818 

PR 

I NT "Hmm 

8 8 8 

n 

a 1 o 

ei parane yhtään..« 

2820 

PRINT 





2830 

SO 

U B 4 4 u y 





2848 

PR 

INT "Hhaa , s 

i 

I Tl ö. 

t u ti t u u o 1 e v a n 


j o t a k i n k i r - j o i t u st a. " 


2850 

SO 

T 0 

9 70 







2860 

IF 

HO 

= 9 RND < 

09 

< 9 > = 1 

0R 0L 

T 9 ) — 

1 ! p ) 

2870 

EL 

SE 

2 8 9 8 







2870 

PR 

INT 

" S i 

i Tiä 

O fi 

u. s e i 

ta pie 

Ti 1 ö. 

y 3 1 

i o t k 

3 

•3 

1 k 3 M 

3 t M 

i 1 

k kuta 

— T rs sYf rs. 

-r z* i 

T 3 -3 

o 11 a 

t..{ 

-3 -3 

ra 11 

i s ta 

8 

Toi v 

o n t o t 

i s e s 

Tl, 

t i 0 — 

d 

ä t 

m i t ä 

Il 3 S 

t! 

SS 




2880 

Li U 

TO 

9 7 0 









2 o 9 0 

IF 

H 0 =10 fi N D (. 0 8 ( 1 8 j — 1 0 R 0 L 

( 10 X — c 


THEN 

2 o 

10 



2988 

IF 

N0=22 HMD CP=26 THEN 2910 

ELSE 


2918 

F’ R i N1 " P 6 y d ä 11 ä o n pie n i m u o 

m i k u u. t 

r~ 

j o k -3 


n ä y 11 ö. ä ta r p e e k s x t u. r y a x 

i. i :=• £ 


4 . _ si 




r— 

2928 

0 L 

<8>=26 



2938 

SO 

TO 970 


r— 

2 y 4 y 

IF 

H0=26 RND GP=13 THEN 2950 

E L S E 


2950 

P RINT “S e on ih a n r uesteessä 

»n. Rh 

i— 

y i a i_ 

i a 

— a ti ä k y y p ; i e n i r a k o j a a 

1 a o s a 


s s a c 

Tl 

su 1 kulaite." 


1 — 

2960 

SO 

T U 9 7 O 



2970 

IF 

H0 =18 H N D C P = 39 THE N 2 9 8 0 

ELSE 


2986 

PR 

IH T " S e o n i h a n p S I y x n e n . = 

8 0 d o t 


het k 

i , 

pyyhin vähän likaa pox 

S 8 ” 

- — 

2990 

PR 

INT 



3080 

SO 

S U B 4 4 0 9 : G 0 S U B 4 4 0 0. 


,— 

3010 

F' R i N T " L ö y s i n a i n o a :=• t a a n p i e 

n en r e 


se i t 

O. 

— t ä . S e o n s u u n n i 11 e e n v 

y 5 f :j r- 

< — 

ö Tl ke 

r k 

eu.-del la. “ 



3020 

SO 

T 0 9 7 0 


— 

3030 

T p 

N 0 =16 H H D C P = 4 3 T H E N 3 0 4 Ei 

r~ s r-r* 

lLol 


3040 

t r“ 
i r 

0 B c 9 > = 1 0 R 0 L (. 9 > < > 0 THE H 

387 Ei 


I Hth 



3088 









26 




































27 



O d 

K $ < 2 > = 

" kaupung i rs po r 

t 1 Ti i 

u 1 k u p u o 1« 



F' o r 11 

ti 


a f i i 

\s& siH-r f i 


i t tu . 





3458 

DATA 8 

8 , ö , 0 , 0 




3 ■¥-60 

Rf < 3 > = 

15 j. yhysss& kdy l 

d M d S: 

S 3. = M 3. d ö. 1 


e Ti 1 5 

y h k o. t 

■3. v 11 3. *3 i i h i a Ti. " 




243 B 

DATA 4 

, 2 , y , 0 




.3480 

Rf- <4 > = 

"kosteassa kiv 

I t U. Tl Ti 0 11—- d s 


3 S -3 tl 

i i y i s t 

y m d m e s i y a 1 u. u. 

a 1 a 

s seiniä 


j-j t f- — 

k i n j 

a m u. o a o s taa 1 =3 

täkö 

j. *- d 1 ddt 


t — t. 

i a 11 e. 

E! 




3 4 80 

DATA 5 

7 3,6,8 




3509 

Rf- ( 5 ) = 

"liukastunut j 

a p u 

toat syy.: 


k u o p 

— p a a n = 

„ „ Te r =3 y s. t t e r" 

ä s S 0 

i P 3.3. t t ö S 


ttä- 

i.?ö. t k u 

o p a n p o h i a I i d = 

Et 



3510 

DATA W 

J 0,0,0 




£_ rj 

R f ( 6 > = 

"suuressa kai k 

u v a s 

S a lii 0 td 1 


e- 1 i 

SSds L~ 

oistavat sein3. 

t 1 u. 

oy at Oli H 


O Ti 

s i n i s a 

n h e i j a s t u k s e n 

k o r 

kaalia o 


katt 

. t! 





3530 

DATA 7 

,8,8,4 




3540 

K '$ f -. 7 .- f ~ 

P i 0 n 0 s s d s ■ y Ti k 

Ö. S S d 

r e u. o n 0 0 S -1 


3550 

R '$ K o ) — 

Rf C 1 } 




3560 

K f 9 } = 

" F' 1 1 k 3. n o fft a i s e s 

s a h 

ai 1 ISi-ds 


La 1t 

I 3 Ti O 

t k u u hia ui a ri p a 

I Ti O S 

i j o h d o s 


3570 

DATA 0 

, 6,0 , @, 6,0 , 9,8 

.-E .-E 

? ‘-T -i- , 

8 , 18,8 


35 8 @ 

K f C 10.) 

—r o hi u. p u. risti iti 0 s a 

a a a S 0 1 ' 


1 i i k 

- k u. v a 

t S 1 s 3.3. Ti p 3. in. . 

EE 



35 9 0 

R $ < 1 1 > 

— " 1 y h y e s- s- 3. y h t e y s t u n n el i s- s ■ 

- 

368‘0 

R f ( 12 > 

— " k a p e a s s a j a 

kor k 

e a s s a h u 


3 n K 

o r k sai 

i a o 1 e v a k u p o 1 

X r". d t 

to pääst 

*■— 

Ö. Ö. 1 Ö 

. — y itseen hi iti m e =3 n s i -=• r iti 

aa ta 

valoa. " 


j s i h 

DATA @ 

,8,0,0,1,44,0, 

1 is _ a 

,1,0,0 

— - 

3628 

Rf <13> 

= " s u. u r e s s a t y h 

1 d s s 

a hali is 


•B & 

La 

ttia on paksun 

7 y u 

o s i s a t o j ■ 

-— 

hän 

t O lii U. Ti 

ps 1 113.fft3.. " 




3638 

K f-1. 1 4 

= "laser-k ammio 

! SSd a 

y a r o. = . 

r— 


— 

2 . a 

P ! 



3640 

K $ 1 3 .- E 

= R $ < 1 > 



' — 

3650 

DATA 0 

h 10,0, 1,0,0,0, 

8,3 9 

,6,11,8 


3 6 6 0. 

P 3> t 1 h-. ) 

— * j o n k i n 1 a i s e s 

s a y 

U 1 lii dkcii L 


Ö. u 

0 u t o 

vihreä kaasu 

ti d v t 

13.3. i i fft a 


I 1 H,. H 


3 6 f ö R $ (. l f } — " v o i fft a k a r= 13. s s 3. = '* 
3680 FOR J-18 TO 23 
3 3 8 h 3! $ (.j ,5 — 3 1 7 ) 







28 



8 5 0 

Kt <34 

muu 

k d i d I d- t e Ti 

rau i n 

4 O I 3 3 . 11 

o £> y 

K $ o 3 

> = n k ö. y 

1 6. M ö. Ti P’ ö. ö. 

_ _ II 

jr- O. m 


8 7 0 

DflTfl 

32 , 9 , 8 

, 0 , 0,32 , 8 

, 0 , 0 , 0 

7 Oi. j O O 

880 

Rt <36 

> = " a a r 

r e k a m m i o s 

s a ! " 


890 

r-. 4- o i 

> = Rt < 1 

7 - 1 



900 

R $ < 3 8 

> =Rt < 1 

"7 j 



9 10 

DflTfl 

0 , @,35 

,0,18,19, 

Ib,38, 

19,20,37, 17 

9 2 0 

R $ < 3 9 

> = " s i 1 

t! Ö. Ti isi Tl ö. Ti dQSi 

S Ö. m U 

930 

R $ k_ *4 y 

> = " u o i m a k e n t ä n 

r e u. n =i m 

i 11 a. " 

9 4 0 

Rt <41 

> =Rt < 1 

) 



9 5 0 

DflTfl 

88,15, 

0,0,88,22 

, 18 , 1 6 

,42,43,27,24 

960 

Rt <42 

> = " p i e 

n e s s ö. s i i 

r t o k a m fis i o :=• a . " 


3970 Rt f 43 > = "tauai1isessa huoneessa. " 

3 9 S 0 R t < 44!) = " k a p e a s s a k ö. y t ö. u ö. s s ö. — k i m m e I t 





29 


VO. 

o r a n s- i n a m v i 

,si. " 


990 

DATA 0,41,0, 

0 0 0 

Rt<45 > = "kape 

t u k i 

t-tu tiiviis 

•id 

ovella," 


t u. ti nsi issa. i ie o n 
. 1 letulla, p ain a va 1 


4 01 9 K t < 4 6 .5 — ■' y m ä 1 i ö. a v a r u u. d e s a t u h a n bis 
Ti tähtien y »vs P’ ä r ö i m ä n ä = = , " 


4020 

D A T H 

88 

,27,0,0 , 0 , 0 , 0 , 0 


4038 

Rt <47 

> = 

" P i e m e s s ä m u o m i k u p o 1 i s 

-Ei 3 

4 0 4 0 

Rt i 48 

> = 

" t u u h e a m a a r m • i o m e t s ä n 

r e u. m a s s a 

•1 ET fä 

—r rl ,_l k! 

R $ **. 4 y 

> = 

11 k e s k e 11 ä m e t s ä ä , " 


4 0 6 0- 

Rt <50 

> = 

"taivaamsimis e n j är m e m 

ranma11 

4070 

DATA 

0, 

0,48,0,0,0,49,47,49,50 

,49,48, 

49,0 

, 5 1 , 0 




4 ö 8 Ei 

Rt <51 

> = 

“ p a k o a 1 u k s e n s i s ä 11 ä . " 


4090 

DATA 

0, 

H 7 H , 30 


4 1 00 

DATA 

!* ? 

0 , 0 , 0,0,51,31 , 0 , 0 , 0 , 0 , 

26,21,42 

0 , 12 

7 4 ? ■- 

, 1 

3 , 28 , 43 , 47 , 50 , 36 , 16,0 



4110 D fi T H L a a t i k k o — j o s s a m u s t a n appi , P i e n i 
m e t a 11 i k i e k k o, 0 h u. t m u s t a m etallita n 
k o, L u s i k k a, H v a i n, fl m u 1 e 11 i , P u 11 o s i n i s t ä 
Ti estettä, K u u tiu, K y p ä r ä _ 

41 2 0 D R T fl S ä i 1 y k e p u r k k i , M u i s t i k i r j a , P ö y t ö., 4 
y i p u a < 1 - 4 > , 4 v i p u a < 1-4 > , K o r o k e 
, Kaapp i , K. a a p p i , i e r äs 1 i p a s 

413 8 D H T fl K o 'n e , 4 u i p u a (.1 — 4, H y lly,trill 
in e n m i p u,P a k o a 1us,Merk k i , T ö herretty s 

e i Ti ä k i r j o i tus, L u s i k k a 

414 ti E> fl T fl “ p " , " £ “ . “ l 11 , 11 l lä 
4150 OB(55=1 

416 8 S 0 T 0 22ö 

4 170 IF CF' = 17 OR CP= 19 OR CP=18 OR CP = 37 
0 R C- F ’— 3 8 0 R L- F — 2 y u F! C F' — 2 2 0 K C F : — 23 THE 
N 4180 ELSE 4200 

41 E? 0 P RIH T " U i o s iTi e n o t i e o n • ole m a s s a» k o e ta 
mer k i tä si j ai ntis i pudot taota 11a es i me 



4190 

SO TO 9 

7 0 



r— 

4200 

IF CP< 

>16 

THEN 

4230 


4210 

PRINT 

" V r i 

t ä 1 U 

kea. " 

r— 

4220 

SO TO 9 

70- 




4230 

IF CP< 

> 13 

THEN 

4 2 6‘ Ei 

i — 

4240 

PRINT 

"On 

a i ka 

o 11 a a 


4 2 5 0 

GOTO 9 

70 




Pie n et lim o n e e dit!" 
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4640 PRINT#!,CP 
4 A 5 y L- L U b h 
4 66 Ö G OIO 9 7 0. 

4 6 70 R E M P ELI H L H T fi U S K H b E T X L T H 
4680 CLS 



4 6 9 U 

LUCflTt 0,6 


4 f ö 0 

LI HE INPUT "PfiINfl ENTER, KUN 


OH > 

ä flLM I I Nn " ; Ui 


4710 

LOCATE 0,9 


4720 

PRINT "LRTRilR. . . " 


4730 

OPEN " KfiS:KI EL“ FOR INPUT RS 


474 0 

FOR -J-i TO NN 


4750 

INPUT#1,OBCJ> 


4 .* Hj L-i 

IN F' U T # 1,0 L < 3 > 


4770 

N E KT J 


47 8 0 

INPUT#1,fl 


4 7 9 0 

T H K UT # 1 K 5- l ". 4 4 } 


4 g g g 

IN P U T # 1, B 


4810 

I N P U T # 1 , R $ f 3 9 > 


4820 

INPUT#!,C 


4830 

INPUT#!,D 


4840 

INPUT#!,E 


4 o 3 h 

INPUT#!,CP 


4 8 6 0 

M <44, 1 

? — fl “ M < 3 9, 1 ) — E=; N < 40 , 1 

” D s i*I 

(35,4 > = 

ET 

4 R 7 R 

CLOSE 


4888 

G O T O 9 

70 

4890 

F 0 R D E 

=1 TO 488:NEXT DE 

4900 

L- L -i : 


4910 

LOCflTE 

l 7 O 

4920 

p p T N T 

"Ja niin t uli ä K KIL 0 

4 y 3 0 

LUCH!L 

0 , 2 ö 

4 '^40 

f j\j P| ij 

" U u s i y r i t y s ” ; Q $■ 

4 9 0 

IF LEF 

T $ < q $, i > = » k " T H E N R U 

u. f-, y 

F' RIN T = 

IH P UT " 01 e t k o a i u a n 

K£65 ' 

TI o. S X * ~ U 

■f 

4 9 7 0 

t n f itit 

i. S 5— s— S 

T *■ t Q $, i } = '■ l ; 11 t H E N 5 ö 

4980 

CL S 


4 9 9 0 

LOCfiTE 

R p 

5000 

PRINT 

"<< AARRE ON SIHU 

5910 

i uf:PTE 

0,28 

5 pi 4 y 

END 



j J-t f !~X 
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4640 PRINT#!,CP 
4 A 5 y L- L U b h 
4 66 Ö G OIO 9 7 0. 

4 6 70 R E M P ELI H L H T fi U S K H b E T X L T H 
4680 CLS 



4 6 9 U 

LUCflTt 0,6 


4 f ö 0 

LI HE INPUT "PfiINfl ENTER, KUN 


OH > 

ä flLM I I Nn " ; Ui 


4710 

LOCATE 0,9 


4720 

PRINT "LRTRilR. . . " 


4730 

OPEN " KfiS:KI EL“ FOR INPUT RS 


474 0 

FOR -J-i TO NN 


4750 

INPUT#1,OBCJ> 


4 .* Hj L-i 

IN F' U T # 1,0 L < 3 > 


4770 

N E KT J 


47 8 0 

INPUT#1,fl 


4 7 9 0 

T H K UT # 1 K 5- l ". 4 4 } 


4 g g g 

IN P U T # 1, B 


4810 

I N P U T # 1 , R $ f 3 9 > 


4820 

INPUT#!,C 


4830 

INPUT#!,D 


4840 

INPUT#!,E 


4 o 3 h 

INPUT#!,CP 


4 8 6 0 

M <44, 1 

? — fl “ M < 3 9, 1 ) — E=; N < 40 , 1 

” D s i*I 

(35,4 > = 

ET 

4 R 7 R 

CLOSE 


4888 

G O T O 9 

70 

4890 

F 0 R D E 

=1 TO 488:NEXT DE 

4900 

L- L -i : 


4910 

LOCflTE 

l 7 O 

4920 

p p T N T 

"Ja niin t uli ä K KIL 0 

4 y 3 0 

LUCH!L 

0 , 2 ö 

4 '^40 

f j\j P| ij 

" U u s i y r i t y s ” ; Q $■ 

4 9 0 

IF LEF 

T $ < q $, i > = » k " T H E N R U 

u. f-, y 

F' RIN T = 

IH P UT " 01 e t k o a i u a n 

K£65 ' 

TI o. S X * ~ U 

■f 

4 9 7 0 

t n f itit 

i. S 5— s— S 

T *■ t Q $, i } = '■ l ; 11 t H E N 5 ö 

4980 

CL S 


4 9 9 0 

LOCfiTE 

R p 

5000 

PRINT 

"<< AARRE ON SIHU 

5910 

i uf:PTE 

0,28 

5 pi 4 y 

END 



j J-t f !~X 
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KOLMIULOTTEINEN 

SOKKELO 



Olet ansassa kiemurtelevien käytävien muodostaman sokke¬ 
lon eteläosassa, josta sinun täytyy etsiä jossakin pohjoisessa 
oleva ulospääsy. Kulkiessasi näet sokkelon sisäosan pers¬ 
pektiivikuvana ja joko edessäsi tai sivuillasi on avonaisia tai 
suljettuja ovia. 

Kuinka peliä pelataan 

Halutessasi kääntyä johonkin ilmansuuntaan paina näppäimiä 
P, E, I tai L. Painamalla näppäintä K pääset eteenpäin. 

3 MSX-pelikirja 
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Vaikka ilmansuuntanäppäimet muuttavatkin näkymääsi, sinä 
pysyt paikallasi. 

Pelin alussa annettavalla vaikeusasteella määritellään sokke¬ 
lon koko. Ole varovainen, sillä vaikeimmat pelit on tarkoitettu 
vain niille, joilla on hyvä suuntavaisto ja loistava muisti. 


Tietoa ohjelmasta 


Rivin n:o 

170 

Aikarajan asetus 

180 

Antaa RND-funktiolle siemenluvun. 

210 

Aikarajan alkuarvo 

250-260 

Vaikeusaste 

300-310 

Piirtää yhtenäisen peräseinän. 

330-340 

Piirtää peräseinän ja oven. 

360-370 

Piirtää yhtenäisen seinän oikealle. 

390-400 

Piirtää yhtenäisen seinän vasemmalle. 

420-430 

Piirtää seinän ja oven oikealle. 

450-460 

Piirtää seinän ja oven vasemmalle. 

480-700 

Järjestää sokkelon valmiiksi. 

740 

Kytkee keskeytysrutiinin. 

780-990 

Tulostaa kunkin suunnan näkymän. 

1010-1030 

Odottaa ohjetta näppäimistöltä. 

1040-1070 

Muuttaa suunnat numeroiksi. 

1100-1130 

Liike eteenpäin 

1180-1250 

Vapautuminen sokkelosta 

1320-1460 

Keskeytyksen kutsuma aikarajaa pienentävä 
aliohjelma 


Ohjelma: SOKK-JS 

i Pi jT-j p r hl :4 

:4: :t: :4: :f: M :■£: :-f: :k :4: 

11 y >■■■ - ■ 1 f 


130 rem * 

:4: : k :4: M :4: :4: M :4: 


1 / 0 O N 1H'! t R U fl L = 2 90 S 0 S U B 1 3 3 9 

1 g 0 X ~ p f-j T M £ 

19 9 CO L 0 R 15,1 

£ ö 0 L 0 C ri T E 1 3,4 : P R I H T " S O K K E L 0 
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210 IU =100 

220 OPEN "6RP:" RS 1 
230 DIM M<22,42> 

240 LOCRTE 2,12 

250 IN F' UT " U RIKE U S H S T E <5 - 40 > " ; S K 
2 60 IF S K < 5 O R S K > 4 0 THE N C L S: G O T O 240 
27ö LOCRTE 2,16:PRINT "ODOTA HETKI..." 

2 8 0 G O T O 4 8 0 

290 REM YHTENÄINEN PERÄSEINÄ 

3 0 0 D R R U " B M 9 0,6 8; C 1 2 R 8 0 D 8 0 L 8 0 U 8 8 " 

310 RETURN 

320 REM OUELLI NEN PERÄSEINÄ 

33 0 D R H y !i B M 9 0,6 0; C 12 R 8 0 D 8 Ei L 2 5 U 5 Ei L 3 Ei D 5 8 

L25U80" 

340 RETURN 

350 REM YHTENÄINEN SIUUSEINÄ 

3 6 0 D R fl U " B M 17 0,6 Ei: C12 E 5 0 D1 8 0 H 5 8 U 8 0 " 

370 RETURN 

i38 REM YHTENÄINEN SIUUSEINÄ 
390 DRHU "BM 90,60;C12H58D180E50U89” 

480 RETURN 

410 REM OVELLINEN SIUUSEINÄ 

4 2 0 D R fl U " B M17 8,6 8; C12 E 5 8 D18 Ei H 2 9 U 9 0 G10 D 7 8 
H 2 8 U 8 8 " 

438 RETURN 

440 REM OUELLIMEN SIUUSEINÄ 
4 5 0 D R H U " E: M 9 0,6 0; C12 H 5 8 D1S 0 E 2 8 U 9 8 F 10 D 7 0 E 
28 U 80 " 

460 RETURN 

478 REM SOKKELON TEKO 

4 8 8 C = IN T < R N D < 1 > * 2 6 > + 2 
490 R=1 

508 R1 = IN T< R N D < 1 > * 4 5 41 

5 10 D = IN T < R N [5 < 1 > * 3 > + i 
528 IF D=8 THEN 518 
530 IF D=D1 THEN 518 
54Ei C> 1 = D 

558 FOR J=1 TO Rl 

568 IF D=1 THEN C=C-1:IF C<2 THEN 0=2 
570 IF D=2 THEN R=R+l:IF R=SK+1 THEN 620 
588 IF D=3 THEN C=C+l:IF 019 THEN C=19 
598 M<C,R)=1 
600 NEXT J 
610 G O T O 5 Ei 0 
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620 

rOR 3=1 TO 20 



6 3 0 

PK 3, 1 >=3: PK J, 

3K> = 3:MC 3,SK+i> 

= 0 

640 

FOR K=1 TO SK 



6 3 0 

MC 1,K>=0:M<20 

, K>=0:MC 19,K> =0 


6* 6 *0 

IF RMDC1X.8 

THEN 690 


670 

IF M< 3,K)< >0 

T H k. N 6 9 U 


680 

M< 3,K>=2 



690 

HE KT K 



7 0 0 

NEXT 3 



710 

COLOR 12,1,1 



720 

SGREEN 2 



730 

CL S 



740 

INTERUAL OH 



7 5 0 

R=SK:c=15:DR= 

1 


7 6 0 

C 0L 0 K 14;0 N DR S0 T 0 7 8 0,8 4 0, 

9 8 8,9 6 0 

770 

REM SUUNTA POHJOISEEN 


780 

IF M<C,R-11>0 

THEN SOSUB 330 

ELSE 

SOS 

UB 300 



790 

IF MCC+l,R> >0 

THEN SOSUB 428 

ELSE 

SOS 

UB 360 



80 0 

IF MCC-1,R> >0 

THEN SOSUB 450 

ELSE 

SOS 

JB 398 



810 

PRESET <74,180 

:j : PRINT# 1, “SUUNTA 

POHJOISEEN" 



820 

SOTO 1010 



830 

REM SUUNTA ET 

E L a a N 


840 

I F M < C, R + 1 > > 8 

THEN SOSUB 330 

ELSE 

SOS 

UB 300 



850 

IF MCC-1,R>>0 

! M E N H u ■”> U B 420 

ELSE 

SOS 

UB 360 



3 6 0 

IF MCC+l,R>>0 

THEN SOSUB 450 

ELSE 

S 0 S 

JB 390 



8 7 8 

PRESET<74,180 

> PRINT#! , "SUUN 

TA ETELÄÄN" 

880 

SOTO 1010 



890. 

REM SUUNTA IT 

ÄÄN 


9 0 0 

IF MCC+l,R>>0 

THEN SOSUB 330 

ELSE 

S 0 S 

UB 300 



910 

I E M CC, R + 1 .5 / H 

THEN SOSUB 420 

ELSE 

SOS 

JB 36.0 



920 

IF M < C, R-1 ') >0 

THEN SOSUB 458 

ELSE 

SOS 

UB 390 



930 

PRESET<74,180 

> : PRI NT#1, " SUUNTA ITÄÄN “ 

940 

SOTO 1010 



9 5 0 

REM SUUNTA LÄ 

HTEEN 


960 

IF M C C -1, R > > 0 

THEN SOSUB 330 

ELSE 
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6OSUB 308 

9 7 ö i F M k C, R ~ 1.) > 0 'HE H ti O o U E' 4 iL 0 t L S E 
S 0 S U B 3 S 6 

9 3 0 IF M <C,R+i)>0 THE N S 0 S UB 450 EL S E 
SOSUB 390 



9 9 0 F' 

RES 

ET C 74, 180 :>: PR I NT# 1, " S 

UUHTA LÄNTEEN" 


1000 

REM 

ODOTTAA TIETOA NÄPPÄ 

IMISTöLTä 


1 0 1 0 

A$ = 

IH K E V $ 



1020 

IF 

fl$="“ THEN 1010 


’ 

1 030 

BEEP 



1 040 

IF 

H$="P" THEN DR=1:GOT0 

1 140 

■— 

1 0 5 0 

IF 

fl*="E" THEN DR=2:GOTO 

1 140 


1 060 

IF 

A $ ="I" THEN DR = 3:GOT 0 

1 140 


1070 

IF 

A$="L" THEN DR=4:GOTO 

1 140 


1080 

IF 

A $< >"K" THEN 1010 



1090 REM LIIKE ETEENPÄIN 

1100 IF DR=1 THEN R=R-1:IF M<C,R>=0 THEN 
R=R+l:S0T0 1010 

1110 IF DR = 2 THEN R = R+1:IF M< C,R > = 0 THEN 
R=R—1:GOTO 1010 

1120 IF DR=3 THEN C=C+1:IF M<C,R>=0 THEN 
C=C-1:60T0 1010 

1130 IF DR=4 THEN C=C-1:IF M<C,R>=0 THEN 
C = C +1: G O T 0 1010 
1140 CLS 

1150 COLOR 12,1,1 

1160 SCREEN 2 

li70 IF R>=2 THEN 1266 

1180 INTERUflL OFF 

1190 oL-REEN 0 

1200 REM ONNISTUIT 

1210 CLS:COLOR 15,4,5 

1220 PLAY 1 ' T 2 4 0 O 4 C D E F H B O 5C D E F fi B" 

1230 LOCflTE 12,8: PR I NT '* ONNEKSI OLKOON ! 11 
1240 LOCflTE 4,10: PRINT "TARUITS IT F! I NOflSTflfiN" ; CN 
"SI IRTOA. “ 
i250 GOTO 1280 
1260 CN = CH +1 
1270 GOTO 760 
1280 L 0 C A T E 1,22 
1290 CLOSE 
1300 END 

1310 REM UäHENTää JÄLJELLÄ OLEMAA AIKAA 
1320 IU=IU-1 

1330 PRESETC168,10):COLOR 1:PRINT#!, CHR$ 
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ET<72,10 

." J o L- U L U 

T#1,"PEL 

IfilKfifi 

U>0 THEN 

1460 

HlKfi LOP 

PUI 

"T24805 

GFEDCB 

DE=1 TO 

180:NE 


14 0 8 S C K h E N 0 
1 4 y a r n I O f? 1 Fi. 


1430 LOCfiTE 12,9: PR I NT " fi I Kfi LOPPU I f 11 
1 4 4 0 n C fi T E 1,22 
145 0 SO TO 129ö 
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SÄHKÖTYS 



Tämän ohjelman avulla voit verestää sähkötystaitojasi, vaik¬ 
kapa purjehduslomaa varten. 

Voit kuunnella satunnaisia kirjaimia, arvata sanoja tai lähet¬ 
tää sanomia. 


Kuinka ohjelmaa käytetään 

1. Satunnaiset kirjaimet 

Tällä toiminnolla tietokone lähettää satunnaisia kirjaimia 
valitsemallasi nopeudella. 
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2. Satunnaiset sanat 

DATA-lauseista otetaan sanoja satunnaisesti ja ne tuloste¬ 
taan kuultavana koodina. Tämän jälkeen sinun on kirjoitet¬ 
tava ko. sana tietokoneelle. Vaikeusaste vaihtelee sanojen 
ja nopeuden mukaan. 

3. Sanoman lähettäminen 

Tämän toiminnon avulla voit lähettää haluamasi sanoman. 

Ohjelma pystyy lähettämään suunnilleen 60 merkkiä minuu¬ 
tissa. Tämä maksiminopeus riittää radioamatöörien sähkö- 
tyskokeen suorittamiseen. Jos olet aloittelija, älä yritä oppia 
kirjainten pisteitä ja viivoja ulkoa. Kuuntele vain kunkin kirjai¬ 
men ääntä ja varmasti hämmästyt, kuinka helposti ne voi 
oppia. 


Tietoa ohjelmasta 


Rivin n:o 

70 

Morsemerkit ja sanoja sisältävien taulukoiden 
tilavaraukset 

100-120 

Lukee morsemerkit. 

140-200 

Kirjoittaa valikon. 

210-230 

Odottaa näppäimen painallusta. 

240 

Tarkistaa vastauksen. 

250-260 

Pyytää nopeuden arvoa. 

290 

Osa ohjelmasta erikoistarkoituksiin 

310 

Satunnaiset sanat 

330-350 

Lukee sanat DATA-lausekkeista. 

370 

Valitsee sanan satunnaisesti. 

380-460 

Tulostaa sanan morsekoodina. 

420-440 

Skandinaaviset merkit 

470 

Odottaa vastausta. 

490 

Tarkistaa, oliko vastaus oikein. 

500-520 

Vastaus oli oikein. 

530-540 

Vastaus oli väärin. 

550-600 

Kirjoittaa sanan ja tyhjentää näytön. 

660 

Kysyy sanomaa. 

680-690 

Odottaa sanomaa. 

700-810 

Tulostaa sanoman morsekoodina. 

850 

Satunnaiskirjaimia 

880 

Valitsee kirjaimet satunnaisesti. 

890-910 

Skandinaaviset kirjaimet 

920 

Tulostaa kirjaimen. 
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1080-1180 Aliohjelma morsetusääntä varten 
1230-1260 DATA-tiedot morsemerkkejä varten, 1 vastaa 
pistettä ja 3 viivaa 
1280-1310 Sanojen DATA-tiedot 


Ohjelma: MORS-JS 

1 0 fi; F M :+:+- * * * +«=4= 

8 ö R E M ; + : : + : 

3 y k E M '+ S a H K o T Y S : + : 

4 0 R E M * +* * * * * * * * * + 

58 REM VV$= i: 

o 0 R t rt v v i ~ v vt 1 ' 

70 DIM M$<29> , U£-<29> 

3 0 L = R H D(-TIME > 

90 REM LUKEE MERKKITIEDOT 
100 FOR J=1 T029 
110 REflD M$<J) 

120 NEXT J 

136 REM URLIKOH TULOSTAMINEN 
140 CLS 

150 COLOR 12,1,1 

160 LOCHTE 11,3:FRINT "SÄHKÖTYS" 

170 LOCRTE 1,8:COLOR 13:PRINT "1. LÄHETÄ 
SANOMA“ 

130 LOCHTE 1,10:FRINT "2. SATUNNAISET 
KIRJAIMET" 

190 LOCRTE 1,12:PRINT "3. SANAT" 

200 LOCRTE 1,17:COLOR 5:PRINT "PAINA 1, 2 
TRI 3" 

210 A$=INKEY$ 

220 IF A $■ — “ “ THEN 210 
230 BEEP 

240 IF A$<“1” OR A $ >“3“ THEN 210 

25ö LOCHTE 1,20:COLOR 13:INPUT "NOPEUS 

(l - 100>":SP 

260 IF SP>100 OR SP<1 THEN 250 
270 CLS 

280 LOCHTE 12,1:COLOR 11:PRINT 
"NOPEUS = “:SP 

2 9 R O N U H L < R $■ > S O T O 6 6 0,86 0,310 
300 REM SANAT 

310 RESTORE 1190 
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320 REM LUKEE SANAT 
330 FOR J=1 TO 20 
340 REflD UiCJiJ 
350 NEXT J 
360 FOR H=1 TO 10 

370 R=INT <RND < 1> *20> +1 
380 FOR J=1 TO L E H < U t< R > > 

390 L f = MID T < U f < R > ,3, 1 > 

400 IF Lf=" “ THEN 460 
410 L=HSC<L$>-64 
420 IFL=79THENL=27 
430 IFL=78THENL=28 
440 IFL=89THENL=29 
450 SOSUB 990 
460 NEXT J 

470 LOCflTE 1,20:INPUT "MIKÄ SftNfi OH 

KYSEESSÄ";QT _ 

486 LOCflTE 1,20:PRINT VV$ 

490 IF Q$<>yt<R) THEN 530 
500 PLRY "T240O4RBCDEFS05CDEF“ 

510 LOCflTE 12,8:PRINT "OIKEIN!” 

520 SOTU 550 

530 PLAY "T220B fl S F ED C" 

540 LOCflTE 13,8:PRINT ”UÄÄRIH!" 

550 LOCflTE 1@,10:PRINT "SflNfl OLI" 

560 LOCflTE 10,12:PRINT UT<R> 

570 FOR DE=1 TO 2000:NEXT DE 

580 LOCflTE 7,8 = PRINT W$ 

590 LOCflTE 10,10:PRINT VV$ 

600 LOCflTE 10,12:PRINT VV$ 

610 NEXT N 

620 FOR DE=1 TO 2000:NEXT DE 

630 CLS 

640 SuTO 160 

650 REM SANOMAN LÄHETYS 

660 LOCflTE 4,10:COLOR 7:PRINT "KIRJOITA 
SANOMASI" 

670 PRINT:PRINT 

680 INPUT If- 

690 PRINT:PRINT 

708 FOR J=i TO LENCI *':> 

710 L*=MID*CI*,J,1> 

728 IFL$="S"THENL=27:PRINT L$::SOTO8@0 
730 IFL$="ä"THENL=28:PRINT LT::SOT0800 
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740 

IF 

! 

!_ 

II 

•M- 

ö " THEHL= 

v y 

: FRI 

NT Li; 


SO 

TO 

800 

750 

PR 

I 

HT 

Li; 








7 6 0 

IF 


Li = 

•i ■■ THEN 

S 

OSUB 

1100: 

a 

OT 

0 

81Ö 

7 70 

IF 


Li = 

*■ . " OR L 

i= 

ti | ii 

OR L$ = 

H 

•“» ii 

T 

HE N 

780 

IF 

L 

$ > " 

Z" OR Li 

Il 

H" T 

HE N PR 

T 

i 

NT 

: P 

RIN 

"KÄYT 

& 

Uh 

IN ISOJR 

K 

IRJA 

IM IA!" 


a u 

TO 

6 7 0 


( 90 L = H SC t. L i > -64 
800 S O S U B 9 9 0 


810 

NEXT J 



3 2 8 

F 0 R D E = 1 T 0 290 0: N E X T D E 



830 

f: L S 



849 

GOTO 160 



8 5 0 

RE M SAT UNNAISET KIR J HIMET 



860 

LOCATE 1,4 



870 

FOR J=1 TO 50 



880 

L=INT(RND<1)+29 > + 1 



3 9 0 

IFL=27 THEN PRINT CHRi<79+64>;:6 

OTO 

939 

900 

IFL=28 THEN PRINT CHRi<78+64S 

0 T 0 

Q 

910 

IFL = 29 THEN PRINT CHRi<89+64> J:S 

OTO 

9 3 0 

9 2 8 

PR I NT CHRi< L + 64>; 



930 

SOSUB 990 



940 

NEXT J 



950 

FOR DE=1 TO 2090:NEXT DE 



968 

CL S 



970 

GOTO 160 



980 

REM MERKKIEN ÄÄNI 



990 

S 0 ij N D 0,9 0: S 0 U N D 1,0: S 0 U N D 8,0: S 

OUNC 



7,254 


1 000 

FOR K=1 

TO L 

EN c; Mi < L> > 

i 0 i 0 

IF MID$< 

Mi < L 

>,K,1> = "0" THEN 1 

1020 

SOUND 8, 

1 2 


1030 

FOR DE=1 

TO 

30+CURL <MIDi<Mi<L 

1040 

NEXT DE 



1 0 5 0 

SOUND 8, 

0 


1 060 

FOR DE =1 

TO 

90-SP--'2: NEXT DE 

1070 

NEXT K 



1080 

FOR DE =1 

TO 

110 0 - S P * 10: N E X T D 

1 0 9 0 

RETURN 



1 100 

FOR DE=1 

TO 

200 

1 1 1 0 

NEXT DE 



11 20 

RETURN 



1130 

REM MORS 

E HE R 

KK IEN DRTR-TI EDOT 

1 i 40 

DATA 1390,3111,3131,3118,1000 

3310 




1150 

DATA 111 

1,11 

00,13 3 3,313 0,1311 
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3109 

1160 D fi T H 33 3 0,1331,3 313, 1310, 1110,30 0 0, 

1 1 3 H 

1170 DfiTfi 1113,1330,3113,3133,3311,13313, 
1313,3331 

1180 REM SAHOJEN DATA-TIEDOT 
1190 DATA MÄNTY,KUUSI,KO IVU,LEPPÄ,HAAPA 
18 0 0 D A ! fi FIL U S O F I, U P E T T A -T A, Laa K a KI, P U R M h 
ARI,IN S INö ö RI 

1210 DATA UARIS,HA I,KISSA,KALA,MRJAUA 
122 0. DAT A U 0 L U O, T O Y O T H , M H Z D A, O p E L, S A A B 




FAARAON KIROUS 



Tämä on peli, josta jopa vanhemmat ystäväsi tai koko per¬ 
heesi pitävät, sillä peli vaatii logiikkaa, muistia ja päättelyky¬ 
kyä. Nyt voit unohtaa taistelupelien pelaamisen. 

Tässäkin pelissä etsit tietenkin aarretta, mutta sinun on pää¬ 
tettävä, kannattaako keräillä kiviuurnia, rautatankoja, savi¬ 
ruukkuja tai tikareita matkallasi pyramidin keskustaan. 

Sinun on päätettävä, menetkö itään, länteen, pohjoiseen vai 
etelään ja avaatko ovia, astutko sisään muinaisiin huoneisiin 
vai ryntäätkö epäröimättä sokkeloihin. Lattiat voivat muren- 
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tua, seinät sortua ja sumut voivat ympäröidä sinut, koska 
haudat on suojattu sinun tapaisia rosvoja vastaan. 

Kuinka peliä pelataan 

Syöttötiedot annetaan suuraakkosin ja tiedoiksi riittää tavalli¬ 
nen verbi ja substantiivi, esimerkiksi MENE ETELÄÄN, TUTKI 
ARKKUA, OTA AVAIN jne. Ilmansuunnat voidaan antaa nii¬ 
den etukirjaimina P, E, I ja L. 

Seikkailupelin kirjoittaminen koneeseen vie niin paljon aikaa, 
että se kannattaa kirjoittaa virheiden välttämiseksi useassa 
vaiheessa ja välillä tallentaa nauhalle. Ole hyvin huolellinen 
kirjoittaessasi DATA-lausekkeita, sillä pienikin virhe siellä se¬ 
koittaa helposti ohjelman loogisen rakenteen. 

Pelitilanne voidaan myös tallentaa, joten peliä ei tarvitse pe¬ 
lata loppuun yhdellä istumalla. Tallennus tapahtuu TALLEN- 
NA-käskyllä ja vastaavasti vanha pelitilanne ladataan käskyllä 
LATAA. 

Tietoa ohjelmasta 

Rivin n:o 

210 Tilavaraukset taulukoille, joissa ovat esineiden 

ja huoneiden kuvaukset. 

240-380 Lukee suunnat, esineiden sijainnit ja kuvaukset 
DAT A-lausekkeista. 

420-660 Kirjoittaa ohjeet. 

700-710 Tyhjentää näytön yläosan. 

730 Kirjoittaa paikan kuvauksen. 

750-830 Esineet, jotka ovat tässä paikassa. 

850-900 Kirjoittaa mahdolliset suunnat. 

920 Piirtää viivan kuvauksen alle. 

1030-1050 Odottaa seuraavaa ohjetta. 

1060-1120 Erikoistapauksia 

1150 Etsii välilyönnin ohjeesta. 

1170 Verbi sijoitetaan muuttujaan VB$. 

1180-1240 Erottaa substantiivin verbistä ja antaa kummal¬ 
lekin numeroarvon. 

1260 Hyppää oikeaan kohtaan verbiä varten. 

1270-1340 Verbi Lyö 

1350-1370 Lue 

1380-1460 Liikuta 

1480-1540 Pudota 
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1560-1590 Mene 

1610-1710 Tarkista mahdollinen suunta. 

1730-1940 Verbi Ota 
1960-2680 Tutki 
2700-3140 Avaa 
3160-3250 Kaiva 

3260-3280 Verbien ja substantiivien DATA-tiedot 
3290-3930 Huonekuvaukset ja suuntien DATA-tiedot 
3950-4120 Auta 

4160-4320 Tallenna pelitilanne nauhalle. 

4340-4500 Lataa vanha pelitilanne nauhalta. 
4520-4600 Epäonnistuit. 

4610-4650 Onnistuit. 

4670-4690 Viiverutiini 


Ohjelma: FAAR-JS 


1 0 0 R E M : + : '+ + * ++ 

110 REM + * 

120 REM * FfiflRfiON KIROUS * 

130 REM * * 

14 0 R E M * * * * * * * * * * ■+■ + + * * * * * 

158 REM 

160 CLS 

17 0 C L E H R 2 0 00 

180 COLOR 1,15 

190 LOCfiTE 10,10 

208 PRINT "FFiRRfiOH KIROUS" 

21 ö l' 1 IM M 4 4,4 J , O E! ■ " 4 0 i , O - j T c 4 0.), R i c 4 4 , D K % 4 >, 
O L (. 4 0 .'} 

220 GOTO 3260 
230 REM LUKEE DflTfl-TIEDOT 
240 REfiD U$,N$,Z$,RH,NN,CP 
250 H $ = N f- + 2 $ 

2 6 U h U R • J “ 1 I U K N 
270 FOR K=1 TO 4 
2 8 0 R E fl D M < J , K > 

290 NEXT K,J 

300 FOR J=1 TO NN 
310 REfiD OL < J) 

320 NEXT J 

330 FOR J=1 TO NN 

34ö REfiD OJ$.:;J> 

350 NEXT J 
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I h \A F llfK 


T — 1 T 


O 4 


■J i KJ 

3 0 0 


K E H L> O K $ ( J ) 


0 L 0 C H T h @, 4 


4 k! 0 H k 1H i ” h h V H i I y S a 0 N E R a S K H U R N U N U H L-* U K S 

T s - - t“- s“ SS 

j. o o n 

4 3 0 F k IH T " u L L U T L H R K S 0, J 0 S S fl H U H U N M U K fi H M 
0N“ 

44ö PRINT "KÄTKETTYNÄ URLTRUR AARRE. “ 

450 PRINT:PRINT 

460 PRINT "MONET OURT YRITTÄNEET LÖYTÄÄ 
TÄMÄN" 

478 PRINT "FRRRRON KÄTKÖN, MUTTA KUKRRM EI 
0 LE T U L L U T T R K fl ISI N." 

480 PRINT:PRINT 

490 PRINT "JOS OLET HALUKAS, UOISIMME YRI 


-O '!' I AA 

5i0 PRI NT:PR I NT : PR I NT 

520 PRINT "PAINA JOTAIN NÄPPÄINTÄ. 

o j ö N U $ — IN K E Y $ 

540 IF MU$ = "" THEN 530 


'o60 LOCRTE 0,4 

570 PRINT "ANNA MINULLE 


KAKSI 


SANAA OHJEE 


580 

PRINT 

"ES 

IM. 

MENE 

P 

UH 

TOISEEN 

, TU 

T 

KI 

OUI 

, OTA 

ES 

INEL 

UETT 

EL 

U 7 

PUDOT fl 

TAN 

l;' 

0 , " 

590 

PRINT 

: PRI 

NT: P 

Rl NT 







600 

PRINT 

"ON 

UI ELÄ M 

ON 

IA 

MUITAK 

IN 



KäS 

KY Ja, 

J 01 

TA" 








4 1 0 

PRINT 

■i is j-j 

IT K 

ÄYTT 

AA 

? 

MUTTA S 

RAT 

K 

EKSIÄ 

NE 

I 

TSE. 

S s 








& 'cL kj 

PRINT 

: PRI 

NT 








638 

PRINT 

"EP 

V T s“s T 
H i U i 

UON 

URLLA s ESSA 

MI EL 

E 

-■ T 

O i 7 

U 01 

T KIR 

-JOI 

1 T H H 

f'-. Ä O 

K Y 

N 

- AUTA " . 

ii 



648 

PRINT 

: PRI 

NT 








658 

INPUT 

" OL 

ETKÖ 

HAL 

UK 

AS 

LÄHTEM 

ÄÄN 

C' 

E IKK 

RILU 

UN, 

J OKA 

TUO 

EHK 

A 

UflflROJA T 

ULLE 


Sh 

RN”; 

N Ui 










6 o M 

IF LE 

FT i < 

NUi, 

1 j < > 

"K 

ii 

THEN EH 

D 




670 CLS 
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68 0 G O T O 10 0 0 

690 REM KIRJOITTAA HUONEIDEN KUMAUKSE 
T, NÄKYMILLÄ OLEMAT ESINEET SEKÄ 

MAHDOLLISET SUUNNAT 
7 G 0 L OCH TE 0,0 

710 p RIH T S F' H C E $ < 2 5 5 > ; S P H C E f- < 2 5 5 } 

7 2 8 L O C H T E 0, 2 

730 PR I NT 11 OLET “ ; Rt C CP > 

740 REM TARKISTAA ONKO HUONEESSA 
ESI- HEITÄ 

758 FOR J=i TO NN 
7 6 0 IF O L ( J ) = C F 1 THE N 790 
770 NEXT 3 
780 GOTO 840 

790 PRINT:PRINT "NÄKYMILLLÄ: "; 

800 FOR J=i TO NN 

810 IF OLCDOCP THEN 830 

820 PRINT OJfcJ) 

838 NEXT J 

840 PRINT:PRINT “SUUNNAT: “5 
850 FOR J=1 TO 4 

860 IF M ( C P, J > = 0 O R M < C P, J > = 8 8 T H E N 8 8 8 
870 PR I NT DR$ < J >;:DF=1 
880 NEXT J 

890 IF DF=0 THEN PRINT ”??" 

900 DF = 0 

910 PRINT:PRINT 

920 PR I NT STRIN G $•<37,219> 

930 REM UI PAHEELLINEN LIIKE! 

940 IF CP=13 OP! CF’ — 3!5 OR CF 1 = 3 6 OP: CF' = 25 

OP: CF'=42 THEN 960 

950 GOTO 990 

9 6 0 G U S U Es 4 67 O 

970 GOSUB 4670 

9 8 0 G O T O 4 5 20 

990 RETURN 

1000 PRINT 

1010 GOSUB 700 

1028 REM ODOTTAA SEURAAMAA OHJETTA 
1038 LOCATE O,23:PRINT 
1048 INPUT "ANNA OHJEET":IPt 
1050 PRINT 

1060 IF Ip$="RIJTA" THEN 3950 

1070 IF IP$= ,, P" THEN IP $ = “ M E H POHJOISEEN" 

1080 IF IP$="E“ THEN IP$ = "MEN ETELÄÄN" 

4 MSX-pelikirja 
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1096 

T iZ f jl : -ir 

__ i! T H TU 

— i i rl 

Lfi 1P3 1 — “nfc.fi i ! aah" 

1 100 

IF IP$ 

= "L" THEN IP$= ,i MEN LÄNTEEN 

1110 

ir 11“ x* 

="TALLE 

Nfifi" iHEN 4150 

.1 1 ii y 

i h I P $ 

= " 1 fi T H A 

" iHbH 4330 

1 1 3 0 

IF LEN 

<IP$><6 

THEN PR im "tn 

VMM 

V n £s V I H a 
H : iH a 

]1* j“j T f | 1 

0 0 01 

1140 

REM ET 

SU UäL 

1L Y o fi fi IH b V o i ! o i i 

;P — 


D n R t r 


1 1 hg i 

X= IHST 

R(i,IPf- 

H H - 

i i h yj 

k L rl ER 

U I T H H U 

E N! b 1 N 

1 1 "7 Cl 

y B $ = L E 

j~ | S ( | PS 

O 

11 yy 

NT$=MI 

| j : :—■ -± 

y+1,LEN <IP$)-X) 

1 1 4 fi 

R E M E R 

U 1 i RR S 

UBS!fini liy1N 

1 2 y y 

5 : : ~ s $ • ! ,L 


ft+i , 3 ) 

i y i y 


o { H ( 1_ _ ». j S _ U 0 S 5 4"^ j P 

1 '? v iH 

IF UE< 

1 THEN 

K R1N 1 " t N Y M M a R R a U 

I ä « :i 

* fl:! — | X f"! 1 

yj M 0 


i ui y y 

H 0 — < I p 

STR i 1 , N 

■$ , N n ■$ > +£ ;>. " 3 

1240 

FF rl LK 

i ur n 

N T c N 0 > < > N 0 > T H E N P R 

T 55 F 

N Y P1H A h 

Rä S fin f- 

fi UERBIN JÄLKEEN.": 

1 kiki 

0 



1 O “-Ci 

REM UR 

LITSEE 

y e r b i ä u h s t h fi u r h o 

H- 


. I H |_ 1*1 H h r 

T j : 7 r. j 

1 V 1 § 1 

1260 

OH UB 

i"! |“| T 1 

5 0, 1 3 8.0, 1958,26 9 0,3 

17 ii y 

1 "7 ‘7* tTf 1 

4 O y ? i 4 b 

h , 1 3 5 0 , 13 3 ti, 12 7 ö 

i v~a 

ji ; rr Ki f y 

5 


1 VHH 

IF ri u— 

*24 H H D 

OB f 5) = 1 AND CP = 20 T 

1 3 0 0 




1290 

q n x n i 



* •-= : ö y 

H R i fi 1 

li s H L H 0 U 

I ON AUENNUT!" 

13 i 0 

M s. 2 0 , 4 

> = 3 ö 


i o ii y 

SO TO 1 

000 



PRINT 

" MITÄ Ä M 

EI TAPAHTUNUT. " 

134w 

GOTO l 

8 0 0 


1350 

K E M L U 

E 


1360 

PRINT 

k-fiprq 

TUTKIA." 

I 3 ^ y 

GOTO 1 

000 


1380 

REM LI 

I KU 


134 0 

I F N 0 = 

26 AND 

CP = 4 THEN 1410 

j. ^ H 0 

ti U 1 U 1 

440 


1410 

PRINT 

“ SfiLAKÄ 

V t | s | » 

I 1 h v Hi : 

il y 

M C 4 r . 4 

= 39 


14 -i> y 

li U 1 L- 1 

000 


1440 

K h Fi EI 

MITÄÄN 

h K i K U I 3 T fi 



















51 


1450 PRINT "MITÄÄN EI TAPAHTUNUT.“ 

146 0 S O T O 109 0 
1470 REM DROP 

1480 IF O B C N O > OI THE N 15 3 0 
149 Ei 0 B C N 0 > = 0 
15 Ei 0 0 L C H 0 ;j = C P 

1510 PRINT "OLET PUDOTTANUT SEN." 

1520 S 0 T 0 1U 00 

1530 PRINT NT %;“ EI OLE SINULLA." 

154 O G 0 T 0 1 Ei Ei Ei 
1550 REM MEME 

15 6 0 IF N 0 = 20 H N D C P = 3 8 H H D 0 B C1 > = 1 T 
HEN 1580 
15 7 Ei G 0 T 0 16 U O 
1580 CF=11 

15 9 Ei G 0 T 0 10 0 0 
1600 REM SUUNNAT 

1610 I F N0 <2 8 0 R N 0 >31 THEN 16 38 

16 2 Ei G 0 T 0 16 5 Ei 


1 S 3 8 

PRINT 

m 

U 0 i 

MENNÄ SIIHEN S 

UUHTA 

AN ! " 
1640 

6 Ci T 0 

1 000 




1650 

IF MC 

CP, NO 

— 

j=£i THEN 1630 


16 6 Ei 

IF MC 

CP, HO 

d. i . 

5 = y y T H t. N 1 £« H H 


1670 

GOTO 

1700 




16 8 Ei 

PRINT 

"ET 

UOI 

MENNÄ SINNE - 

UI EL 


16 9 0. G U T 0 1 8 0 8 

17 0 0 C P = M C C P. N 0 - 2 7 > 

1710 GOTO 1000 
1720 REM OTA 

1730 IF N0032 THEN 1790 
1740 FOR J=1 TO NN 
1750 IF O B C J > <>1 THEN 1770 
1760 PRINT OJfc.J) 

1770 NEKT J 
17 8 0 G O T O 10 Ei 0 

1790 IF NO>13 THEN PRINT "ET UOI OTTfi 

H SITÄ? ”l 6 OT O 10 00 

1880 FOR J=1 TO 15 

1818 IF OB C J > = 1 THEN CN=CN+1 

1828 NEKT J 

1830 IF CN<4 THEN 1878 

1840 PRINT "ET UOI KANTAA ENEMPÄÄ!" 
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1S 5 8 

CH = 0 




18 6 0 

SO TO 1 

0 Ei 0 



I 8 U 

IjN = y 




i o O d 

if 0L<: 

NO)<>CP 

THEN 

1938 

18 9 0 

0 L ( H 0 5 

— rt 



19 @ 0 

OB<NO > 

-1 



191 o 

PRINT 

"SE ON 

SINUN. 

li 

19 2 0 

GOTO 1 

0 Ei 0 



i 9 3 Ei 

PRINT 

NT %;" E 

I OLE 

f aalLä ! 

1948 

GOTO 1 

0 0 Ei 



fr ET :“i 

i J J fN 

REM TU 

TK I 



19 6 0 

i ri u — 

1 AND < 

UB 1 “ 

1 0 R 0 L 1 > — C P 

THE N 

1 980 




1970 

SOTU 2 

; 1 20 



19 8 Ei 

PRINT 

"SE ON 

TÄYNNÄ 

H i E K U li L V F E •J 

Ä ! " 





19 9 8 

F' RIN T 




2800 

S 0 8 U B 

4670 



2 8 1 0 

PRINT 

"ODOTH, 

ti s £-1 fr 

* * « r K 

I NT 

2 Ei 2 0 

finsl IR 

4 6 7 y 



2838 

PRINT 

"SISÄPU 

OLELLfl 

0 N Pflr h K 1 S U 

IKALE 

!! 




2840 

H K 1 H T 




2058 

h H! S ! \ rl 

4670 



2060 

PRINT 

Oi i i 1 rt 

LUKEE: 

TÄMÄ MUKANAA 

N UOI 

MENNÄ 

n 



2 0 7 0 

PRINT 

"OMAAN 

PEILIK 

UUAANSA. “ 


2088 PRINT 


2098 

PRINT 

"SUOME 

NT ANU 

~r 

: ov 

MU I NAI 

b b 

U 

OM E NN 

OS AB 

il 







2 1 0 0 

PRINT 

" PR I NO 

UUOSI 


2 Ei 4 Ei 

E.KR. " 



ro 

© 

SOT 0 

1 Ei Ei Ei 







2 1 20 

IF NO 

— 3 H ii D 

< OB C 3 

"j 

-1 OR 

0 L < 3 > 

= 


CP > T 

HEN 2 

1 40 







2130 

GOTO 

2250 







2140 

PRINT 

"HMMM. 

il 






2150 

PRINT 








216 8 

S 0 S U Ei 

4678 







2170- 

PRINT 

"SITÄ 

ON UA 

I 

KEA L 

UKEH. . 

il 


2188 

PRINT 








219 Ei 

SO SUB 

4 6 T 0 







2 2 0 8 

PRINT 

"LUULE 

M, ET 

I 

Ä SII 

NÄ LUK 

EE 

l 

L Y 5 

MIEST 

ä RAU 

TATAN 

s 

0 L L H 

JA LEP 

OP 

H 

0 N * 

* M E H - 

NYTTÄ** 

li 
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2210 

PRIMT 


2220 

hi U o 1 J H 4 6 7 M 


2230 

PRINT "ENEMPÄÄ EN Sfifl SELUILLt.' 

224 ö 

Su!0 1000 


2250 

I P N U — 2 6 H N D 

CP=4 THEN 2270 

2260 

80TO 2296 


227@ 

P R 1H i :I B E 11 

NäYTä PRIHflUHLTFi 1 " 

2280 

80TO 1000 


2298 

IF H0 = 7 H H D < 

0 B < 7 > = 1 0 R 0 L < 7 > = 

CP > T 

HEH 2310 


2300 

8 0 T 0 2 3 3 ö 


2310 

PRINT "SIINÄ 

ON REIKÄ!" 

2320 

80TO 1000 


2330 

IF N0=9 RHD < 

0 B C 9 .5 = 1 n R u L i 9 > = 

C P > T 

HEH 2356 


2340 

GOTO 2380 


2359 

PRINT "SIELLÄ 

U N U fi N H H Ph R 8 H rl h N 

T T T tl 

lii* 



23 6 @ 

0 L < 3 > = C P 


2370 

80TO 1800 


2388 

IF N0=16 AND 

CP=5 THEN 2400 

2 3 9 0 

GOTO 2428 


2400 

PRINT "SIINÄ 

0 N AUH INENREIKÄ." 

24 1 0 

GOTO 1000 


2 4 2 0 

IF NO=20 AND 

CP=30 THEN 2440 

2430 

80TO 2468 


2440 

PRINT "SIELLÄ 

OH RUMAN NÄKÖINEN 

245 0 

GOTO 1000 


2460 

IF N0=10 RHD 

c n B < 10 i = 1 0 k n L < 1 Ei 

THEN 

2480 


2470 

GOTO 2570 


2480 

PRINT "SISÄLL 

. a 0 N M Y R K Y L LIN E N H 

I . " 



2490 

PRINT 


25 00 

G 0 S U E! 4 6 7 O 


2510 

PRINT "00PS!" 


2520 

PRINT 


2530 

80SUB 4670 


2540 

PRINT "LIIAN 

MYÖHÄÄN!" 

2550 

GO-SUB 4670 


2560 

GOTO 4520 


2570 

IF N0=25 AND 

CP=10 THEN 4610 

2 5 o 0 

IF N0=26 AND 

CP=15 THEN 2600 

2590 

GOTO 2628 



* 
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2690 

P R I f i 1 

51 ET uo 

I LI 

IKUTTHH 

T V T V | ti 

i w 1 M : 


2 61 £i 

SO TO 

1 y y y 





2629 

IF HO 

=11 AND 

< OB 

Lii > = i 

0 R 0 L < 1 1 > = 

CP) 

THE M 

2640 






2 b O ö 

S 0 T 0 

2 6 6 8 





264 fi 

C* Q T r-i T 

rKiil i 

55 s f N S 

I b A L 

Lä ON P 

HLSAMOITU 

T 0 R H 

K K H * 5 







2 b 3 0 

H 0 ! IJ 

1008 





cl b b b 

REM E 

y m f j ••• 

1 i i Ä i M l-i 

H ER 

I KOISTA 



2678 

P R IH T 

!1 E I M I 

TÄÄN 

ERIKOI 

ST A. " 


268 M 

G 0 T 0 

1 0 0 0 





2690 

R E M ft 

_j H H 





2 7 U ö 

IF NO 

= 17 fl H D 

C P — 

5 THEN 

2720 


2710 

G 0 T 0 

2750 





2 f 2 0 

r ! K 1 f i i 

:i K. H T b U 

i 11 






1 8- El 0 





— * s ■ 






“«~ |T-| 

IF NO 

-17 fi H D 

ij F 1 — 

7 THEN 

2778 


cl b b 

G n t n 

2 b x y 





277 p ; 

1 NT 

« 5 l-' Ci T O fi 

1 " 




2788 


L 1 } <. > u 

U R U 

B < 1 > = 1 

THEN 1000 


v 7 4 ki 

0 L < 1 > 

= 7 





VL-i l.-i 

G 0 T U 

1 K} Ö 8 





V1 L-i 

IF NO 

=17 AND 

C P — 

9 THEN 

2830 


ci o ci y 

L-i U i >J 

2 b 9 y 





o .*! H 

PRINT 

li k' P. T s fi i 

-• 




2 8 4 0 

I r U L 

il V > < > 1-1 

0 R 0 

B 2 .5 = 1 

THEN 2860 


•~s o sr; 

! ; f 5' l- 1 *5 

Q 





2 8 b Ö 

i h UL 

K A ! '• ’> 0 

U K U 

B < b > = i 

THEN 1800 


2 K H ti 

S 0 T 0 

1 0 0 0 





2 8 9 8 

I F H O 

= 6 AND 

< 0 B < 

b > = i 0 R 

0 L < 6- ) = 


CP ) T 

HEN 2 

91 £i 





2 9 y k1 

Li U i U 

3 0 8 8 





2910 

P R I H T 

" U fl R 0 ! 

ii 




V Q O fi 

PRINT 

“ Li U b U B 

ci Ä 7 P 




2938 

P P T N J 

il o T C* ä 1 

i ä n 

N MVRKV 

LLINEN KÄÄ 

R M E ! ' 







2 9 4 kS 

r* K 1 li 1 






2 9 5 0 

SO SUR 

4 6 7 0i 





4 h yl 

PR I NT 

” H 0 p E fi 

STI ! 

MIKÄ H 

UM HH KAA 



R M E h H P U K t M fi H N V " 


2 9 8 0 h O R J = 1 I O 10 8 ti 
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9 9 Li 

N U $ = I N K E Y $ 


000 

IF N U t < > " " THE N J =100 0 

0 1 0 

r-J CT V T T 

i : L_ t**t 1 -J 


020 

IF NUt= "" THEN 3850 

0 3 0 

PRINT "PHUH! 

JUURI AJOISSA!" 

040 

GOTO 1000 


0 5 0 

PRINT "LIIAN 

MYÖHÄÄN .,. " 

0 6 0 

*3 U S U E» '4670 


0 7 0 

G0T 0 452 0 


0 8 0 

IF HO-16 AND 

CP=5 AND 0B(2>=1 

090 

GOTO 3139 


1 0 0 

PRINT "SE ON 

AUKI . " 

1 1 0 

MC 5 , 3 > = 16 


120 

GOTO 1000 


130 

PRINT "ET 001 

TEHDÄ SITÄ." 

1 40 

GOTO 1000 


i 5 6 

REM KAIUA 



3160 IF CP023 THEN 3230 

3170 PRINT "OLET LÖYTÄNYT SALAISEN SIS 

ÄÄNKÄYNHIN!" 

3180 PRINT 
319 0 S O S U Ei 467 0 

3200 P R IN F 11 S E N a Y i T a a F' E L U T T fi U H L s 

A- MIELESTÄNI SINUN EI PITÄISI 

MENNÄ SINNE! 


1 :7-i s7-: M. 


20 

G 0 T 0 

:30 

REM i 

! 4 y 

PR IN' 

: 5 0 

G 0 T 0 

: 6 0 

DATA 

ä iLUEUE 

78 

Dfi i fi 

i U R R 

: uupui 

80 

DAT A 

VHM 

lUUPA 

: 9 0 

Dh \ A 

; 0 0 

R$ < 1 

P T 

■STY- 

M P A: 

P 

— 

L_ A o i 

10 

R $ < 2 

28 

R $ < 3 

3 0 

Rt <4 


S U O R H ! K H L L 1U S EI N ä T K O H O fi U Fi I 


. L EID E H L A A K S O S S A. " 







56 


UH L U U HI— I H H S Ti H L H S YH I a S EIN a a 


3 3 4 0 R *(5> = "PIE H E S S Ä H AUTA K H M tl 10 S S H. 

LAIT IH 0 H K O U AKSI F? O L 3 E T T U 0 MAATA.” 
3350 DAT H 2,0,8,0,3,1,9,0,6,2,5,4,0, 

0,3,3 3,0 ,0 ,3 o, a 
3360 R t < 6 > = K f- < 2 > 

3370 Rt< 7 > = ”MAT ALASSA, KALLIOON LOUH 
11U S S H H A UIA K H M M 10 S S A. ” 

33 3 0 Rt (. 3 ■' — R ^ (. 3 ? 

3390 Rt<9 > = ”S UU R E SS A, PIMEÄSS Ä HRUIA K 
A M M10 S S A, 3 0 S S H 0 N K IU IL A A T T A L A T TI A. " 
3400 Rt <10 > = ”MATKASI PÄÄSSÄ. " 

4 10 DATA 3,3,7,0? 0 , 0 , 0 , 6 ,0,6,0,8,0, 
0,0,2,12,0,0,0 

3420 Rt- < 11 > = " PEILI N TO ISELLA PUOLELL 

H. " 

3 4 3 0 R t < 12 ) = ”H A U TAKA M MIO N SIU U H U 0 H E E 


3 440 Rt < 1 3 > =" P U T O A M A S S A S Y U ÄÄN, L IE 3 U 
ISEEN KUOPPAAN, 30KA ON TEHTY HAUDANR’ 

STÄ3IÄUARTEN." 

3 4 5 0 R t f 14 > = "K A H D E H T U N NELI N RIS T E Y K S 
ESSÄ.“ 


3460 Rt <15> = “PIENESSÄ ETEISKANN IOSSA. 

OLE U A R 0-U AINE N, LATTIA OH LIUKAS.” 
3470 DATA 37,31,30,0,0,10,14,0,0,0,0, 
0,13,38,15,12,0,0,0,14 

3480 Rt <16 > = »PTRHIN PYRAMIDIH LÄNSIPU 
OLELLA.” 

34 9 0 R t <17 > = "A M O HIN P Y R A M IDIN L Ä N SIP U 
OLELLA.“ 

3580 R t <18 > = "AMO HIN P Y R A MIDIN ETELÄP U 


OLELLA." 

3 51 ö R t < 19 > = " A M O NIN P Y R A MIDIN P O H 3 OIS P 
UOLELLR. “ 

3 5 2 0 Rt<20 > = "H M O NIH P Y R A M IDIN IT Ä PUOL 
ELLA.” 

3530 DATA 21,23,0,5,19,18,0,0,0,0,28, 

17,23,0,20,17,19,18,ö,88 

3540 Rt < 21> = ”PTRHIN PYRAMIDIN P0H301 SP 


UOLELLR.” 

3550 Rt(22>="PTRHIN PYRAMIDIN ITÄPUOL 


ELLA. " 

3560 Rt < 23 > = " F‘T ANI H PYRAMIDIN ETELÄPU 
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OLELLfU !i 

3570 R$<24>="SOIKEASSA ETEISESSÄ." 

3 5 8 0 K f <25) = "P U T OH Mfl S S fl S YU ÄÄN, K Ä Ä RM 
E I T a KIHI — S E U a a N K U 0 P P A A N. . . " 

3590 D AT H 0,0,22,16,21,23,0,0,88, 19, 

22, 16-,27,23,26,25,0,0,0,0 
3 6 0 0 R $ < 2 6 ) = " PUISE S S A URINAJIEN K H MM 
I USSR. " 

3 610 R $ <27 > = "K Y L M ÄSSÄ HA UT fl KAMMIOSS fl." 

3 6 20 Rt< 28) = "J O NKIHLAISE SSA TAIKAH UO H 
EESSfl. ESINEET EIUÄT OLE SITÄ HI LT 
A H b N 

Af i Ia Ua i = = s 

3630 Rt<29)="PIENESSÄ ETEISESSÄ. 

KIUILATTIA TUNTUU KYLMÄLTÄ JALKOJESI 

fl L L. f!. " 

3 6 4 0 R $ < 3 @= •• s U !J R E S S H, HELI ö M ÄI S E S S Ä 
SISÄÄN- TULOHALLISSA." 

3650 DflTfl 0 ,0,0,24,0,24,28,29,2 8 , 28 , 

28,27,8,0,27,0,0,0,20,88 
3 6 6 0 R t < 3 1 ) = R f- < 14) 

3670 Rt<32) = “ETEISKAMMIOSSA. PUISET 
SEIN Ä T MU- R E NT UU ATK OS KET UK S E S T AS I. " 

3 6 8 0 R. t < 3 3 J = " M A T A L A K A T T UIS E 8 S fl U fl R H S T 
OSSA. " 

36 9 0 R t < 34) = " fl N U BISIN K fl M MIO S S fl. 

IL M H T U N T U U K Y L M Ä L T Ä . " 

37 0 0 R t < 3 5 ) = R t < 13 ) 

3710 DATA 11.34,0,32,0,33,31,0,32,0,0, 

0 ,31,36,35,0, 8 , 0 ,ö, 0 
3 720 R t (. 3 S ) = K t < 13 ) 

3 7 3 0 R t < 3 7 ) = “ U P U fl U TIN K A M M IO S S fl . 

ILMA O N HIUK fl N UT UIN EN." 

3740 R f- < 3 8 ) = " T U N HELI N M U T K fl S S A. " 

37 5 0 R t<39) = "S O K K E L O M flIS E S S A 
LUOLARAKENNEL- MASSA." 

3760 Rt<40)= R $ < 39 ) 

3770 DATA 0,0,0,0,0,11,0,38,14,0,37, 

0,0,40,4,0,39,41,0,0 
37 8 0 R t < 41 ) = R ¥ < 3 9 ) 

3790 Rt-< 42) = " PUTOAMASSA KALLIOLTA 
SUORAAN KUOL-LEIDEN LAAKSOON..-^* 

3800 R ¥ < 43 ) = P'T < 39 ) 

3810 R$ < 44)=R$<39) 
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382@ DH ! H 49,0,42,43,8, ti ,8,0,44,0,41, 
0 0 43 ,0,0 

3 8 3 0 D H ! H 8,0,0, 0 ,2 T, 0 ,3 3, 81 =, 4 4,2 9, 

33,0,8,23,0,5,5,0 

3840 DAT H 0,30,7,9,0,20,10, 15,4 

3850 DATA UUITA,SUUR I RAUTA-AUAIH, 

HAALISTUNUT PERSflMEHTTI,TYfi Jä 

3 8fc> 0 D A i H K H U F fi I H H K O, L A H TIK K O 

H HH K AINE N SHH K O 

3 8 ? 8 DhTh il K H RI , KIUI U u K N A, S A U IR U U K K U 
3 8 8 0 DATA P U L L O P H L S H M OIH TINEsTETTa, 

3 Ei 9 0 D A T A P Y R A M ID 1 ! . S U U R I P U u O UI , 

K IUiN EH H K K K U 

3 9 0 0 D A T fi H A U T A K H M MIO, L iJ O L A, 


" **■■-*! 1 ^ ^ s hi iti' 

3 910 D A T H KIUIH E H fi R K K U , M U TOTO, P fi T S H S, 

M E R K KI, S ti U RI KIUI , S U U RI KIU I 
3928 DATA "POHJOINEN ","ETELÄ ", 

HTT - V H H 5 V Kj s ~■ T H 

i i rt 7 LhII^ i 

Ei 9 5 tl i 1“ C P i > 4 THE N Ei 9 ti 0 

396 0 P R I H T "SEI KKA IL U T S fifi T T AU fi T OLL fi 
H Y UIH LI IK U T T fi UI fi K O K E M U K Ei I fi i 

Ei 9 7 0 h O T O 10 @ ö 


.“t ■■ ‘rl 


L- r j n 11 L- r .••• i 




3 9 90 P RIN T "SE SA M fi UK E N E! " 

4 0 0 6 S OIO 10 0 0 

4 010 IF CP < >2 3 THE N 4 9 4 0 
4 @ 2 8 F' R IN T " H i h K K A N a Y i T a a 
4 n 3 @ fi H T O 1 0 0 0 

4 o p, 0 p p j H T " M ITÄ L U K1 P E R G fi M E N T I S S fi ? “ 
4 Fi f, Fi fi H T fi 1 0 0 0 


IF C P <>3 0 THEN 418 0 
P R I N T " O N K O S IN U L L fi U 11 T T fi 


MUKANASI?" 

4098 H UT U 100 0 

A N D C F 4 y 19 fi N Li C F : E. F i 7 fi N C ; C F ! F F18 T Fi Di n 4 
4 1 10 P R I H T "EH K ä P ä SISÄÄNK ä Y HTI O N 
T O 1 S E L L fi P U ULELLH " 
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4 1 2 0 

GOTO 1000 


:’i •; • -! Ci 

PRINT " ÄLÄ UNOHD 

H TUTKIA 

— -- T Kj 

PTTÄ t! 


i- i s 1 



414 0 

GOTO 1008 


4 150 

R E M PELIH TALLE N 

NUS NAUHALLE 

4 1 6 M 

C L S 


417 y 

L0CA ! E o, h 


418 0 

LINE INPUT "PÄIN 

A ENTER, KUN 

k n ss 

;ETTI ON U H L M11N f 

i ** “ y $ 

419 ö 

LOCfiTE 0,9 


4 2 0 8 

P RIN T "TALLEHNUS 

H 


0 P EN " K RS ; F A A R 11 

F 0 R 0 U T P U T A S 

4 / y 

F 0 R -J = 1 T 0 N N 


4 -rl! b 0 

F’ R IN T # 1, U B < J ) 


4340 

p R IH F rt 1 7 U L J 


A Z l -i Ci 

N y i .t 


4 il 8 0 

PR I NT# 1, fl < 20-, 4 > 


4270 

PR I NT#1,H<4,4) 


4 2 8 0 

PRINT#!,M<5,3> 


4390 

PR I NT#1,M <23, 1 > 


4 3 0 0 

• K 1 i 1 j if i 7 L- f 


4 310 

CL OS E 


4^ 14 

GOTO 1000 



4 3 3 0 R h M p h LI M [_ h ! H U S H H U H RL ! H 
4340 CLS 


4 2 ”• Pi 

LUC AT 

«_ y ? b 

4 3 b 8 

LI NE 

I H P U T " P AIN H E N T E R , K U h 

i : -. n o 

S E T T I 

ON VALMIINA";U* 

H b •• y 

l_ 1 i ! ! H1 

E 0,9 

A qoq 

PRINT 

"1 HTflilS, , , " 

4 3 9 0 

OPEN 

"KAS:FAftR" FOR INPUT AS 

CL CL L-1 i-f 

I” U R - J 

•— 1 i U h i l 

4 410 

INPUT 

# 1 ,OB< J > 

4430 

I NF‘UT 

#1, OL < J > 

4 4 b 

N E KT 

T 

4 4 4 0 

INPUT 
1 1 : : Ui 

# 1 , M < 2 0 ,4 '} 


4 4 d m I H PU T #1,M <4,4 > 
4469 I NPUI#1,M < 5,3 > 
447 ö I N P U T #1 ? M(2 3 7 1 ) 


i 












60 


45 3 ti 

L OC fl11 5,9 




4549 

PRINT 11 L 0 P P 

u 

T 

U L i ! 

4558 

LQCfiTE 0,20 




4560 

INPUT "UUSI YR 

i T V S 

" ; Q$ 


457 0 

IF LEFT$CQ$,1> 

- » k 

THEN 

RUN 

4580 

PRINT:INPUT "E 

IK o 

EDtb Y 

H T a Y R; 1 

4590 

I F L h h T S C U % , 1 .) 

< S! r 

" THEN 

RUN 

4600 

GOTO 4708 




4 6 10 

C L S 




4620 

1 OCflTE 3,8 




4 5 -i U 

PRINT “<<< fl 

fiRRE 

ON SI 

HU N ! ! 

4 6= 4 0 

LOCflTE 0,20 




4 6 5 0 

GOTO 4780 




ä ö 6 8 

REM UIIUE 




4670 

P ij r -j — i t u zyyy 



4680 

NEXT J 




4690 

RETURN 




H f *3 8 

E N D 





T 
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PIILOSANA 



MSX-tietokoneesi tekee antamistasi sanoista piilosanoja 
muuttamalla kirjainten järjestystä. 

Kuinka sanoja ratkotaan 

Kaikki on tietysti hyvin helppoa. Sinun tarvitsee vain keksiä 
mikä sana kulloinkin on kyseessä ja kirjoittaa se tietokonee¬ 
seen. Kirjoita LUOVUN, jos et tiedä jotain piilosanaa ja SEIS, 
kun haluat lopettaa kokonaan. 
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Ohjelmointineuvoja 

Sanat piilosanoja varten ovat DATA-lausekkeissa riveillä 
1040-1140. Sanoja voidaan helposti vaihtaa halutun vaikeus¬ 
asteen ja kokemuspiirin mukaan. Varmista, että vain yksi 
sana on kunkin muodostettavan piilosanan oikea vastaus, 
muuten saat ehkä kuulla kunniasi muiden taholta. 


DATA-tietoja on helppo vaihtaa; riittää, kun vain poistat sa¬ 
noja DATA-lausekkeista ja lisäät tilalle uusia sanoja. Muista 
kuitenkin, että jos lisäät sanojen kokonaismäärää, sinun täy¬ 
tyy suurentaa rivillä 190 olevaa WD$:n tilavarausta vastaa¬ 
vasti. 


Tietoa ohjelmasta 


Rivin n:o 
190 

230-270 

290 

320-360 

390-430 

490-610 

650 

680-710 

720 

760-870 

890-940 

980-1000 

1010-1030 

1040-1140 

1170-1220 


Sanataulukon tilavaraus 
Lukee sanat taulukkoon WD$. 
Valitsee sanan satunnaisesti. 
Sotkee kirjainten järjestyksen. 
Kirjoittaa piilosanan. 

Odottaa vastausta. 

Tarkistaa, onko vastaus oikein. 
Väärä vastaus 
Oikea vastaus 
Piirtää hymyilevät kasvot. 

Antaa muuttujille alkuarvot. 

Toteaa luovutuksen. 

Viiverutiini 

Sanojen DATA-tiedot 

Ilmoittaa tuloksen ja lopettaa pelin. 


Ohjelma: PIIL-JS 

1 0 0 p «“ pj ;i; jj.;; jf; ;4- ; : +: ;4 : + : 

110 R E M 

1 £ ö R E M : + : P11L 0 S H H H * 

13 ö R E M : + : : + : 

1 4 8 R E fl + * :+: * * * * * * * + * * 

16 0 R = R H D < - T IM E > 

17 Ei S C R E E N 2 
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i 9*.* 

d i m y d -$ < i 0 0 > , n $ <■. 1 2 > 


200 

COLOR 13,1,1 


21 Ö 

J=1 


220 

REM LUKEE DATR-TI EDOT 


230 

REflD UD $C J > 


2 4 8 

IF UD$<J>="LOPPU “ THEN 270 


250 

J = 3 + 1 


260- 

GOTO 239 


278 

T — J — | 


280 

R E M S fi N A H U A L IN T H 


290 

R=I NT < RHD < 1>*J>+1 


300 

fli=UDf( R> 


31 0 

T R = T R + 1 


.*! 2 M 

F U R I — 1 T U LE H H 5- * 


O O y 

R = I N T c. R H D (. 1 ) +■ 1 '2 .J +1 


346 

X f m f. <; R > < > " 11 THE N 3 3 0 


3 5 0 

Mt < R > =M I Df- < fi$ ,1,1> 


360 

NEXT I 


’"7 Ci 

|_. |_ I“: 


.s y 0 

R E M S H H H N K i R -T 01 ! U 8 


390 

P R E S E T < 8 0 ,4 8 > 


400 

FOR 1=1 TO 12 


4 i 0 

IF M $ < I } = "" THEN 4 3 0 


420 

PRI NT#1, M$<I>; 


4 3 0 

KJ =TT T 7 


4 4 0 

F* F! L o E T v. 4 0 ? y 6 .- 1 


4 5 0 

L- U L 0 R 1.0 , 1 


4 6 0 

r KI N T # 1, " MI K Ä S fl H H 0 H K V S h L S S Ä 


476 

L- U L U R 3 , 1 


480 

REM SANAN SYÖTTÖ TIETOKONEELLE 


4 9 © 

_ tl t! 

— 


5 0 0 

T$=INKEY$:IF T$=" " THEN 500 


51 0 

i F 1 ? — L - H R$ C 1 3 THE M 6 £ 0 


5 £ 8 

i F T $• s" L- H R $ £. o H fi D T \ L- H K 5- ( £ 9 


530 

IF LE NCG $ >= 0 THE N 500 


540 

G$=LEFT$ <8$ ,LEN < 8$ >-1> 


550 

n n i ne i _ i 

■— 

f. Ci 

F’ K E S E ! o ö, 12 0 .) "PRINT#!, S T K I H G T 


O 0 

COLOR 3,1 

r— 

5 8 8 

\~i • J ! U 6 © 0 


CT O |3j 

G '4- — G $■ + T '$■ 

r— 

"2= 0 

PRESET < 88,120 >; PRINT#1,8$ 


ö i 0 

G 0 T 0 5 0 0 

r—- 

6 £ 0 

PRESET<80,144i 
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b 3 0 U U L U k b 1 

6 4 0 R E M T H R KIS T fi fi U A SI fi U K S E H 
650 IF G f- = H $ THEN 720 
660 IF 8$ ="LUOUUH" THEN 980 
670 IF 8$ = "SE I S” THEN 1170 
68ti PLH Y 11 08 i BRh EDCEi “ 

690 PRINT#!, " YR I Ta UUDELLEEN ! i! 

70 0 6 O S u B 1 Ei 1 0 

710 GOTO 370 

720 PR I UT# 1', “ 0 I KE IN ! " 

730 PLAY "T230;05;RBCDEF;06;RBCDEF" 

748 COt 3R 11,1,1 

750 R E h REUNUKSEN PIIRTO 

7b0 FOR! I = 16 TO 2 3 9 STEP 8 

770 PRESET I , 0 > 


780 

PPINTttl , OMPsc i 

■> l CHR$C65> ; 

790 

PRESET <1 , 183) 


800 

PR I NT#1,CHRf ( 1 ; 

> CHRf C 65 > : 

810 

NEXT I 


H i H 

FOR 1=8 TO 183 

ST EP 8 

838 

PR'ESET el 231 , I ) 


840 

PR I NT#1,CHR $ < 1 ; 

:> ; CHRf < 65 > 

8 5 8 

PRESET <16,I > 


ö ö 0 

PRI NT#1 , CHRf < 1 : 

= ® tj r 'X- e 6 5 .- e 

870 

NEXT I 


8 8 0 

REM MUUTTUJIEN 

NOLLAUS 

890 

NC=NC+1 


9 0 8 

Rt=“ " 


91 0 

Gf = " " 


Q v Li 

F U R! i = 1 TO 1 2 


9 3 0 

m i > = *• " 



940 NEXT I 


958 

h 0 R D E = 1 ! 0 2 ö ö 

0:NEXT DE 

9 6.8 

GOTO 290 


979 

REM LUOPUMINEN 


980 

PR I NT # 1,fi$ 


990 

80 SUB 101 Ei 


1 008 

GOTO 908 


1 0 1 0 

FOR DE =1 TO 28 

Ei 0 

1 020 

NEXT DE 


1 Ei 38 

RETURH 


1040 

DATA KALA,KÄKI 

, HIIRI,KISSA,TIIKERI, 

K h N G 

URU,ANTILOOPPI, 

LEIJONA 

1 050 

DATA TIETOKONE 

, OHJELMA,SANA,BITTI,TAU 

R IUI 

,MERKKI,NUMERO, 

MUISTI 
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1060 DATH IDEA,AJATUS,RRTQS,MIETE,MIEL IPI DE, 
VÄLÄHDYS,INTUITIO 

1070 DAT A T HMM I,PAJU,LEPPÄ,MÄNTY,KUUSI, 
KOIUU,HAAPA,UAAHTERR,POPPELI 
1UUU DAT H TI LL I , PAPU, HERNE, NftUR I S, LANTTU , 

S1P U LI,KU Rl,K IUI,PALLO,0U1,IKKU NH 

I 09o D A T A KY Ha,PAPERI,K U MI,LYIJ Y,HARPPI, 

U11UOTIU,MUBTE,HELIKO P T E RI 

I I 8 6 DATA I E L h U i SIO, F' U HELIN, UID h U, K A S E T T I , 
ANTEHNI,JOHTO,KUUR,MR INOS,PELI,F I LM I 

1110 DATA H N K KA, HANHI , U U U HI, LH M M fi S, S O N N 1 , 

H a R Ka,L E H M a,S IKÄ,HE U O H E N 

1120 DATA KI EL I,MATKRL,KAUPUNK I,NARUT I E, 
KARTTA,BENSIINI,AUTO,LENTOKONE 
1130 DATA KORTTI,LIPPU,METRO,KOTI,KANA,KOLO, 
U Ä R I, J Ä R UI, M E RI, J O KI , KIJ O P P A 

1140 DATA U E SI,LUMI,Jää,TULI,ILMA,SUMU,RAE, 

H a K a , K H A S U 

1150 DATA LOPPU 

1160 REM PELIN LOPPU 

1170 SCREEN 0:COLOR 15,4,4 

1180 CLOSE 

1190 LOCRTE 0,7 

1200 PR I NT " ARURSI T " NC " KERTAA OI KE I N *' : PR I 

N T : P R IN T " S A N O .TR OLI"TR-l" K F' L " 

1210 LOCRTE 0,21 
1220 END 


5 MSX-pelikirja 
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PILOTTI 



Pilotti on lentosimulaattoripeli yhdelle pelaajalle. Pelissä on 
kaksi lentokenttää, nousua ja laskeutumista varten. Näytössä 
näkyy myös maastokartta, jossa kummatkin lentokentät, län¬ 
tinen ja itäinen, näkyvät pieninä. Kiitorata tulee automaatti¬ 
sesti näkyviin lähestyessäsi kenttää silloin, kun olet alle 
2 000 jalan korkeudessa. Maastokartta tulee samoin auto¬ 
maattisesti näyttöön, kun lähdet kiitorata-alueelta. Lentoko¬ 
neen sijainti näkyy näytössä vilkkuvana lentokoneen kuvana. 
Lentosuunta otetaan SUU-lukemana. Kuvaruudun alaosassa 
on kojelauta, josta saat lentoon tarvittavat tiedot. 



68 



Mittarit 

SUU 

Lentosuunta asteina. Pohjoinen on 0, itä 90, 
etelä 180 ja länsi on 270. 

PER 

Sivuperäsimen asento, negatiivinen vasemmal¬ 
le, positiivinen oikealle 

BEN 

Jäljellä olevan polttoaineen määrä 

NOP 

Ilmanopeus eteenpäin 

TEH 

Moottorin teho 

KOR 

Korkeus 

NON tai NOL Nousunopeus tai laskunopeus. Laskeutumista 
ilmoittaa myös punainen valo. 

SM 

Laskusiivekkeiden asento. 0 on täysin kiinni, 

30 täysin auki 

LAS K YLÖS 
tai 

LAS K ALAS 

Laskutelineiden asento 


Kojelaudan oikealla puolella oleva neliö on keinohorisontti. 
Kun punainen viiva on alhaalla, osoittaa koneen nokka ylös¬ 
päin ja kun viiva on ylhäällä, osoittaa nokka alaspäin. Kallis¬ 
tus on ilmaistu samalla tavalla; kun punainen viiiva kulkee va¬ 
semmasta alanurkasta oikeaan ylänurkkaan, olet kallistunut 
oikealle. 

Kuinka peliä pelataan 

ESDX Näillä näppäimillä matkitaan ohjaussauvan liik¬ 

keitä. Näppäimellä E saat nokan alas ja näp¬ 
päimellä X ylös. Samalla tavalla käytetään näp¬ 
päimiä S ja D koneen kallistamiseen. Kallistus 
aiheuttaa sivusuuntaisen voiman, joka kääntää 
konetta kallistuksen suuntaan. Pidä näppäintä 
aina alhaalla, kunnes huomaat koneen reagoi¬ 
van. 

O P Moottorin tehoa vähennetään 0:11a ja lisätään 

P:llä. 
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W R Sivuperäsintä käännetään R:llä oikeaan ja W:llä 

vasempaan. Sivuperäsimellä voidaan ohjata 
konetta maassa. Se auttaa myös kääntymistä 
ilmassa. 

A F Laskusiivekkeet suljetaan A:lla ja avataan F:llä. 

Laskusiivekkeiden ollessa täysin suljettuina (0), 
on sakkausnopeus, jolla menetät koneen hal¬ 
linnan, noin 80 solmua. Vastaavasti, kun lasku- 
siivekkeet ovat täysin auki (30), kone sakkaa 
vasta 60 solmun nopeudessa. Älä aukaise las¬ 
kusiivekkeitä suurilla nopeuksilla, sillä silloin il¬ 
manvastus kasvaa ja siivekkeet saattavat va¬ 
hingoittua. 

G Laskutelineitä käytetään näppäimellä G. Pidä 

laskutelineet yläasennossa muulloin, paitsi 
nousussa ja laskussa. Jos laskutelineet ovat 
alhaalla suurilla nopeuksilla, on seurauksena il¬ 
manvastuksen kasvu ja ehkä koneen vaurioitu- 
minenkin. 

Muista aina pitää näppäintä alhaalla niin kauan, kunnes huo¬ 
maat sen vaikuttavan. 

Maaston korkeus 

Vihreän alueen korkeus on alle 100 jalkaa (30 m). 

Punaisen alueen korkeus on alle 1 000 jalkaa (300 m). 

Musta alue taas on alle 4 000 jalkaa (1 200m). 

Tarkkaile korkeuttasi ylittäessäsi näitä alueita, muuten voit yl¬ 
lättäen törmätä maahan. 

Vaihtoehdot 

Peli voidaan aloittaa kolmella eri tavalla: nousulla, laskulla tai 
lento-osalla. Ensimmäisillä kerroilla kannattaa valita vain len¬ 
to-osa, koska osatessasi käsitellä konetta ilmassa voit sitten 
helposti siirtyä harjoittelemaan laskeutumista, joka on lentä¬ 
misen vaikein vaihe. Syöksyt varmasti maahan monta kertaa, 
ennen kuin opit laskeutumaan oikein. 

Pelissä on myös mahdollisuus ottaa tuulen vaikutus mukaan. 
Harjoittele aluksi tyynellä ilmalla, sillä vaatii todella taitoa yrit- 
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tää navigoida ja laskeutua todellisella myrskytuulella. 

Laskeutuminen 

Molempia lentokenttiä on parasta lähestyä idästä, jolloin 
suuntalukema on 270. Korkeuden pitää olla alle 2000 jalkaa. 
Kun lähestyt kenttäaluetta, tulee kiitorata automaattisesti ku¬ 
varuudun yläosaan maastokartan paikalle. Vähennä ilmano¬ 
peutta maakosketusta varten ja pienennä moottoritehoa välit¬ 
tömästi kosketuksen jälkeen, jotta ehtisit pysähtyä ennen kii¬ 
toradan loppupäätä. Laskusiivekkeet voivat olla täysin auki 
laskeutumisen loppuvaiheessa, jotta sakkausnopeus pieneni¬ 
si. 

Lentämisen aerodynamiikka on erittäin monimutkaista ja 
niinpä yhden tekijän muuttaminen vaikuttaa myös muihin teki¬ 
jöihin. Esimerkiksi kallistaminen vaikuttaa myös siipien nosto- 
voimaan aiheuttaen koneen vajoamisen alaspäin. 

Varo äärinopeuksia. Sekä hyvin nopealla että hyvin hitaalla 
nopeudella saatat menettää koneen hallinnan. Samoin oh- 
jainsauvaa (E S D X) ei saa työntää ääriasentoihin ennen 
kuin pystyy mielestään varmasti selviytymään silmukoista ja 
vaakakierteistä. 

Älä kuvittele, että lentäminen on helppoa. Siihen tarvitaan 
paljon harjoittelua ja erityisesti laskeutumisvaihe vaatii paljon. 
Jos osaat nousta ilmaan ja lentää toiselle kentälle sekä tulla 
jälleen takaisin, voit pitää itseäsi hyvänä lentäjänä. Polttoai- 
netäydennystä saat aina laskeuduttuasi. 

Yhteenveto hallintalaitteista 

E Nokka alas 

X Nokka ylös 

S Kallistuminen (ja kääntyminen) vasemmalle 

D Kallistuminen (ja kääntyminen) oikealle 

O Tehon vähentäminen 

P Tehon lisääminen 

R Sivuperäsin oikealle 

W Sivuperäsin vasemmalle 

F Laskusiivekkeet auki 

A Laskusiivekkeet kiinni 

G Laskutelineet 



Tietoja ohjelmasta 


Rivin n:o 
200-270 
280-300 
310-340 
370 

390-430 

450-740 

760-790 

800-850 

860-990 

910-980 

1000-1140 

1170-1310 

1360-1450 

1480-1510 

1530-1820 

1840-1950 

1960-2030 

2040-2100 

2110-2170 

2190-2270 

2300-2380 

2390-2420 

2440-2450 

2830-3030 

3060-3280 

3300-3440 

3450-3680 

3700-3810 

3820-3930 

3960-4010 

4090-4140 

4200-4240 

4270-4310 

4330-4380 

4390-4460 

4470-4550 

4570-5160 


Kirjoittaa valikon. 

Odottaa toimintavaihtoehtoa. 

Odottaa tuulitietoa. 
Vaihtoehto-aliohjelmat 
Pääohjelmasilmukka 
Mittarinlukemien näyttörutiinit 
Tarkistaa polttoaineen määrän. 

Tarkistaa nopeuden. 

Tarkistaa korkeuden. 

Tarkistaa törmäyksen. 

Tarkistaa ja ilmoittaa nousunopeuden. 

Sakkausvaikutukset 

Nopeus nousua varten liian suuri 

Odottaa suraavaa komentoa. 

Ohjaussauvan toiminnot 

Silmukka ja vaakakierre 

Tarkistaa tehon. 

Tarkistaa laskusiivekkeet. 

Tarkistaa sivuperäsimen. 

Vaihtaa laskutelineiden asentoa. 

Laskee ja näyttää uuden suunnan. 
Laskee tuulen vaikutuksen. 

Laskee uuden sijainnin. 

Muuttaa karttaa näytössä. 

Valmistelee taustan. 

Tulostaa kojelaudan alkuarvoissaan. 
Alkukuva 

Tulostaa maastokartan näytön yläosaan. 

DATA-tiedot maastokarttaa varten 

Alkuarvot tuulelle 

Törmäyksen ääni 

Alkuarvot muuttujille uuteen peliin 

Tarkistaa laskutelineet laskussa. 

Tarkistaa kallistuksen laskussa. 

Onnistunut laskeutuminen 

Valmis nousuun 

Alkuarvot lennon alkamiseksi 
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Ohjelma: PILO-SJ 

1 0 0 R E H * * * * * *■ * * * +■ * * * 

1 10 R E M : + : : + : 


i 20 

REM * 

PILOTTI * 



1 'M 

REM * 




140 

REM ** 




158 

R E M 




1 Afi 

K - R M D C 

- : T M p l 



170 

OPEN " 

srp:" fls i 



1 o kj 

P p hi rs “ 

SIKKORUUTU 

JR ERI UfilHTOEHDOT 

19 9 

G L S 




2 0 0 

SPBFFN 

0 




f;m HR 

■i ET -ä 



2 2 2 

L OCRTE 

3,5:PRINT 

"PILOTTI 

il 

9 '“f 5”: 

LOCflTE 

3,8:PRINT 

"1. Nous 

u." 

£46 

LOCATE 

3,10:PRINT 

“2. Las 

k e u. t u. m i n e n 

£5@ 

LOCflTE 

3,13:PRINT 

"3. Len 

to - o s u. u s “ 

2 6 0 

LOCflTE 

3, 18 



•2 7 0 

PRINT 

,! Ual intä?" 



rl y 

Q •$ zz l N K 

EY f-: IF Q $ = " 

" THEN £ 

8 8 

2 2 U 

IF Q i- > 

” 3 ** 0 P Q $ < '• 

1" THEN 

£80 

300 

Q = U fl L < 

Q f- > 



2 i y 

L 0 C fl T E 

3,3 6 



O Cl 

PRINT 

“Tuulen vai 

ku tus?" 


3 3 0 

fl $ = IH K 

EY$:IF fls=" 

" THEN 3 

3 0 

3 «4 h 

IF fl$- 

“K" THEN UN 

= 1 


359 

SCREEN 

2 



A y 

CL S 




O —s 

0 H 0 G 

0 S U B 457 0,4 6= 9 0,484 0 


JT fl. 

REM PääOHJELM flSIL 

MUKKA 


o i7 ; y 

G 0 8 U B 

1 480 



2 !--1 M 

GOSUB 

7 6= ö 



4 1 Gi 

GOSUB 

1480 



420 

n 0 S U e 

£300 



A ~l Ci 

GOTO 3 

90 



4 4 0 

REM Nä 

YTTöRUTI INI 

i 


45£i 

IF LtNe Pf> >i !HhN 

480 


46=0 

P¥= " 

"+r'l 



470 

GOTO 6 

20 



480 

IF LEN 

ip$)>? THEN 

510 


4 9 6 

P '$■ — " 

,J 4- p '$■ 



$00 

ti U T U A 

20 



31 Ö 

IF LEN 

C p $ >3 THEN 

540 


S2,s 

P$ = " 

+ p$ 



530 

GOTO 6= 

20 
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540 IF LEfKPiO >4 THEN 620 
550 Pi-=" " +p$ 

560 SOTO 620 

570 IF L E N P '$ > > 1 THEN 600 
580 P$=“ "+P$ 

590 60TO 620 

600 IF LE N (. P f -) >2 S H E N fa 2 0 


6 i y 

P$=" "+F"t 


6 i d. y 

IF LEFTt<P$,1)=CH 

R $ i. 219 > OR Pf- = CHRt<43 

THEN 

686 


6 3 0 

IF MIDi<Pf-,2, 1 > >= 

,! 0 ” H N D MID $ < P $, 2 , 1 > < 

Q »* 

THEN F’$ = R 16HT$ < P$ 

, LEN f P$ >-1) 

640 

C = C-1 


f, 5 Ei 

S U SUB 710 


660 

G = 0+1 


6‘ 7 8 

COLOR 11 


688 

PRE SET (. i C-1 +8 f (. R 

-1>*8 > 

6,9 0 

PR I NT #1,P$ 


700 

RETURN 


7 1 0 

PRESET < <0—1> +8,(R 

-1> +8> 

720 

COLOR 1 


730 

PR I NT#1,STRIN G $CLEN <P$>+2,219 > 

740 

RETURN 


750 

REM POLTTOAINEEN 

MaaRaH? 


N O PE UDEN J H K OK K LUDEN 1 H RKIS IUS 

7 6 0 F U = FI J - P Li +. 01 3 

778 IF FU<=0 THEN FU=8:PW=8 
780 P*=STR$<INT < FU > } 

790 R=i5:C=4:GOSUB 570 

S 0 0 U E = C F 1 UI +1 „ 14 — B 2 * 4 4.9 7 8 — U E : + : ( C F L ’> 0 j ; + ; 

(_ U E > 10 0 > ) * F L s 150—. 1 + U E+ (. ( S R = Ei j * <" U E>10 0 i ) + U E 

- ' y+ £. U E 10)+ U E : + : 4 y f 5 

310 IF UE<20 THEN 330 

820 UE = yE + RND <1>+4-2 

830 IF UE<0 THEN UE=0 

848 P % =STR$CINTCyE >> 

8 5 O R = 18: C=4: S O S U B 5 7 0 
8 60 fi L = H L + R 0 1 ö 

870 IF fiL<0 THEN fiL=0 
880 P$ = STRt- < I NT c RL > > 

8 9 0 R = 16: 0=16: 6 O S U B 4 5 Ei 

900 REM TÖRMÄYKSEN TARKISTUS 

910 IF RL< 1 AND TS<>6 AND TSO10 THEN 4090 

920 IF AL<1 AND SR=1 THEN 4270 

930 IF H L K 1 H N D A B SE' 3 — E; 1 ) > 3 THE N 4 27 W 
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940 Ir HL<1 AND kO<-320 THEN 4690 

9 5 0 IF fi L < 1 H H D U E < 1 fi H D C T S = 6 O R T S = 10 > 

AND RO<0 AND RO>-328 THEN 4273 

960 I r H L < I 0 0 H N D F' S = 1 2 R N D U M = 2 i H E N 4 0 90 

9 i'" 0 i F H L < 1 3 ö ö H H D F' S — 6 H N D U M — 2 I H E N 4 W 9 0 

980 IF AL<4000 RND PS=1 RND UM = 2 THEN 4090 

99 0 R E M N O U S U N O F' E U S 


8 0 0 

R 0 - ( < c B 

2*62 = 4 —RBöC 83—B11 + 22,26 *3 

2 il 

0 + U E 1 513 

) * f h L > 5 ) * S G N ( R 0 > — U E * Ei 2 * 2 * 

n-cL''\ 

~ 1 > + R 0sfc 2 

'l / 1; 

0 1 0 

G OSU Ei 1 

0 3 0 

020 

GOTO 11 

70 

830 

IF RL<5 

THE H 10 6 8 

0 4 0 

R U “ K U ^ R 

N D < 1 > * 8 - 4 

0 5 0 

REM N Oli 

S U H 0 P E1J D E H T U L 0 S J H S 

0 6 0 

1 F R U > = 

0 THEN 1110 

0 7 0 

p $ = S T R $ 

< fi Ei S < IN T < R 0 > > > 

0 8 0 

PRESET < 

17*8, 17*8 >ICOLOR 1:PR I NT#1 

T RIN G $ < 3,21 

Q 

0 y y 

K R E o E T 

15 * 8 , 17 * 8 > I C 0 L 0 R lii P R IN T # 

i u L 

'■ I COLOR 

61 P RIN l # 1 j C H K f c 2 19 ) 


11 ö ö S O FO 114 0 


1110 PRtäbT c 17 : + : 8 j 1 f *o ) ° CuLUR II 

STRINS$ < 3,219 > 


J. 1 

20 

PRESET<15 

*8,17*8>ICOLOR 11 

"NOH 

" I I CCILÖR- 1 

I PRINT#1,CHR$<219 

1 I 

•“! 

PI = 9 T K '$ < I 

n i c. R 0 >) 

■i 

1 i 

40 

R= 1 9I0=16 

I60SUB 450 

1 1 

50 

R E T U H N 


11 

60 

K E M S H K. K H 

US 

11 

i ! 0 

IF UE><80 

— |- Ln 66 ) UR HL< 5 

i •; 

8 8 

K U — K U — Hb* o 

C R 0 * R N D b 1 > 2 > - R N D 

f 3 

0- 

J E > 


1 

90 

G 0 8 U B 18 3 

0 

i ti 

00 

PLRY "HCRCflCflC" 

1 il 

1 0 

IF RND<! 1 > 

>.5 Then 1240 

1 O 

2 0 

K = 6 9 


1 il 

3 0 

G 0 T 0 15 6 0 


i tl 

48 

IF RND<1) 

>.5 THEN 1270 

-t I 

1 ■— 

50 

K = 8 3 


J- c _ 

6 6 

GOTO 1560 


1 il' 

70 

IF RND<1> 

>.5 THEN 1300 


1280 K=68 
129 0 G O TO 15 68 


PRI NT#1, 

I PR INT#1, 


THEN 1320 
1 1 ) :+: 3 2 0 * 


THEN 1300 
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13 8 0 

K = 8 8 




1310 

SOTO 1560 




1 320 

IF RL< 20600 OR Rl 

0<8 THEN 1351 

ii 

1338 

IF HL =0 THEN RO—i 

0: SOT0 

1358 


1340 

R 0 = R 0 * 150 0 0H L 




1350 

IF UE>350 THEN 1 

200 



1360 

IF UE<140 OR RL> 

0 THEN 

1460 


1370 

SOSUB 4020 




1380 

REM NOUSUN0pEUS 

LIIAN : 

SUURI 


1390 

P$="NOPEUS" 




1400 

N! — 15" 0=9: S 0 S U E: fc. 

20 



1410 

P$="LIIflN" 




1420 

r= 17:c=9 :gosub 6 

2 8 



1430 

P$="SUURI" 




1440 

R- 19:C=9:SOSUB 6 

20 



1450 

GOTO 4090 




1460 

RETURN 




1470 

REM ODOTTAA OHJE 

TTfi N a 

PPÄIMI 

ST ÖL 

1480 

K$= I NKEYf- 




1490 

IF K $ =“" THEN 22 

8 0 



1500 

K — H S C k K f -.) 




151 0 

PLAY "06;C" 




1520 

REM OHJfllNSAUUAN 

TOIMI 

NNOT 


1530 

IF K< >69 AND KO 

88 AND 

K< >83 

AND 

k y& 

8 THEN 1960 




1540 

IF AL<5 AND UE< < 

80—FL* 

. b b b > 

THEN 

1550 

IF K< >88 AND AL< 

4 THEN 

19 6 0 


1560 

IF B1 >6 OR B1 < — 5 

THEN 

1580 


•i CT "7 :"i 

i \J i r i» 

R=17 + B1: 0 = 24: Pf- = 

S TRIN G $<2,21 

9 > l 

CO LO 

R 15:S 0 S U B 62 0 




1580 

IF B2>6 OR B2< -5 

THEN 

1 600 


159 0 

R=17+B2:0=26: P$ = 

S TRI N G f- < 2 , 21 

9 y i 

COLOi 

R 15: S0 S UB 6 2 ET~ 




1600 

i F B b' S U R h* 3 — 5 

THEN 

1620 


1610 

R = 1 f + Ei 3 : Li = 2 8: F’ T = 

STRINS$ < 2 ? 21 

9 j * 

COLO 

R 15:S 0 S U B 6 2 8 




1620 

Ih K069 T H h H 16 

70 



16 3 8 

B 1 =B 1 -1 




16.4 0 

B2=B2-1 




1650 

B3=B3-1 




16.6 0 

SOTO 1790 




1670 

IF K<>88 THEN 17 

20 



1680 

B1 =B 1 + 1 




1690 

B2=B2+1 









76 


1700 B3-B3+1 

1710 GOTO 1790 

1720 IF K< >83 THEN 1730 

1730 B1= B1-1 

1740 B3=B3+1 

1750 GOTO 1790 

1760 IF K< >68 THEN 1790 

17 7 Ei B1 = B1 +1 

1780 B3=B3-1 

1790 IF B 2 <1U THEN 1840 

1808 B1=-10 

1310 B2 = - 10 

1820 B3=- 10 

1830 REM SILMUKKA JA UAAKAKIERRE 
1840 IF ABSCB3-B1X18 THEN 1860 
1850 SUAP B1,B3 

1860 IF ABSCB3-B1><8 THEN 1900 
1870 B1=B1-1 
1880 B2=B2-1 
1890 B3=B3-1 

1900 IF B1>6 OR B1<-5 THEN 1920 

1910 R= 17 + B1: 0 = 24 : COLOR 6:P$=CHR$<219; 

+ C HR$>1219 > : G O S U Es 6 2 E’ 

1920 IF B2>6 OR B2C-5 THEN 1940 

1930 R= 17 + B2: 0 = 26: P$ = CHRf <219>+CHRf c:219> : 

C O L O R 6: G O S U B 6 2 0 

1940 IF B3>6 OR B3<-5 THEN 1960 

1950 R=17+B3:0 = 28:Pf=CHR$<219> + CHR$<219 >: 

0 0 L O R 6 : G O S U B 6 2 0 

1960 IF K< >79 OR F'LK 10 THEN 1990 
1970 PU=PU-lä 
1980 GOTO 2020 

1990 IF K< >S& OR PU>210 THEN 2040 
2000 IF FU=0 THEN 2040 
2010 PU = F‘U+10 
2020 P$=STRf<PU> 

2030 R=21:0=4:60SUB 570 
2040 IF K<>65 OR FL<5 THEN 2070 
2050 FL=FL-5 
2 0 6 0 G O T O 2 Ei 9 0 

2070 IF K-O-70 OR FL >25 THEN 2110 
2080 FL=FL+5 
2090 P f- = S T R f- i F L > 

2100 R=22:0=16:GOSUB 570 

2110 IF K< >82 OR RD>1 THEN 2140 
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2120 RD=RD+1 
2130 GOTO 2160 

2148 IF K<>®7 OR RD<-1 THEN 2190 
2150 RD=RD-'l 

2160 P$=" *' +STR$<RD> + “ " 

2170 R=12;C=17:60SUB 620 

2180 REM LASKUTELINEIDEN LIIKUTUS 

2190 IF K< >71 THEN 2280 

2200 IF AL<4 THEN 2288 

2210 IF GR=1 THEN 2250 

2220 SR=1 

2230 F'$ = "YLöS" 

2248 GOTO 2270 
2250 G F! —• 0 
2260 Pf = "ALAS" 

2270 R=23:C=10:GOSUB 620 
2288 RETURN 

2290 REM LASKEE UUDEN LENTOSUUNNAN 
2308 HD=HD-<B3-B1>*3-RD*2*C UE >2 > 

2310 M2=M2-1 

2328 IF AL>0 OR UE<2 THEN 2340 

2330 HD=HD+RD*15 

2340 IF HD>359 THEN HD = HD-360 

2358 IF HD<0 THEN HD=360+HD 

2360 REM TULOSTAA UUDEN LENTOSUUNNAN 

2378 P$=STR$<HD> 

23 8 0 R = 121 C—9 * G O S U Ei 5 7 0 

2390 IF UN=@ THEN 2440 

2400 REM LASKEE TUULEN UHIKUTUKSET 

2 410 IR = C O S < U D 57.296 > * U S s 160 

2420 IC=SIN C U D ✓ 57.296) + U S16 0 

2438 REM LASKEE UUDEN SIJAINNIN 

2448 F‘R=PR-<UE100) *CO SCHD--57.296 ) +1R 

2458 PC=PC + <UE.-100)*SIN< HD--57.296 ) -1C 

2460 IF UM=1 THEN 2600 

24FÖ IF Pu.>4L hHD PUL-iiGi hHD PR~- : 15 FiNB 

PR-C100 THEN 2510 

2480 PR=0I 

2490 PC=OC 

2508 REM NÄYTTÄÄ UUDEN SIJAINNIN 
251 U PRESET< < I NT < OC-210+ . 5 > -1 > *8, 

CINT<01210+.5)-1>+8 > 

cz. 5 lii y L- O L O R P o 

2530 PRINT#! ? CHR$<219> 
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254 0 P S = P OINI < < I H T < P C /1 0 + . 5 "> -1 ) * 8 , 

< IN T < P R i 0 +. 5 !> -1 > * 8 > 

2 5 5 0 F’ R E S E T < < IH T < P C ' 19 + - 5 > - 1 > * 8 , 

< I H F P R ••• " 10+» 5 '} — 1 '} : + : 8> 

2560 COLOR 15 


2 pj / fi 

PR I NT#1, CHR$ 

< 4 3 > 



2588 

01 = p r : nr:=pr: 




2590 

GOTO 2700 




2600 

PRESET<<INT< 

TC+.5 > 

— 1 ) Q 

, <IN T < TR +.5)-1> *8) 

2610 

COLOR TS 




2 6 2 0 

PR I NT# 1, CHR ■$ 

<21 9 > 



^1 6 -■ y 

TC = TC+ CU E.-" 12 

0 > * SI N 

< H D ■■■' 5 

7.296 > +10*< flL< 1 > 

:f: !. j P y 

8 9 + IC * < fl L > 0 > 




2646 

T R = T R - < U E 12 

y ;* u U o 

< H D 0 5 

7.2 9 6 > — IR * < fl L < 1 > 

$u£/; 

8 0 - IR : + 6 fl L > 0 > 




2650 

2969 

IF T R > 10 0 R 

TR< 2 0 

R TO 

■3 0 0 R T C <4 ! H E N 

2 0 ö y 

T S = P 0 1 H T < < I N T < T 0 +. 

5 > - 1 > 

:-f: 0 n 

< IH T 

TR +. 0 j — l > + 8 > 




2 ö 7 y 

R - IN T < T R + . 5 > 

: 0=1 NT 

< T C + = 

5 > 

2 6 o y 

COLOR 13 




4 M 

P$ = CHRt-<43> ; 

60 SUB 

6 2 y 


2 7 0 y 

IF UM=2 HMD 

RL<200 

0 AND 

PC<295 AND 

pij >2 

67 AND PR<55 

AND PR 

>41 T 

HEN 2710 ELS 

271 0 

t-1 

IF UM=1 THEN 

3010 



272 y 

IF M2>0 THEN 

3010 



2 7 30 

1*3 1 1HI 1R !-• A !■! M 





274W GOSU B 34 5 0 

O S s7i 1 I M — 1 

£_ j U »A* l £ — A 


il = : 3 ^ 1 K ~ T S’ 2 


2 = r yy 

1C=PC—264 


2808 

T S = P 01N T < < I 

NT < TC+.5 >-1> *8 , 

< INT> 

! I' C + « 5 > -1 > 8 

> 

2819 

GOTO 3010 


2820 

REM MUUTTAA 

KARTTAA 

2830 

IF UM=2 AND 

A L < 2 0 9 0 fl N D P C < 8 5 H N D 

P C > 5 

3 AND PR< 75 

fl N C> K R >61 T H L N 2 8 4 Li E L 

30 1 0 
2840 

IF UM=1 THE 

N 3010 

2 8 5 0 

IF M2>0 THE 

N 3810 

2 8 6 0 

G U S U B 8 6 3 0 


2 8 7 9 

ti u s ij B 2 4 5 y 
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2888 W 1*1=1 
2898 M2=3 
2908 T R = P R — 5 5 
2910 T R = TR2 
2920 TC=PC-55 

2930 TS=POINT<<INT<TC+.5>-1)*8, 

<INT < TR +. 5 ) -1 )*8> 

294 0 GOT O 3 010 

2950 IF M2>0 THEN 3010 

2960 IF UM=2 THEN 3010 

2970 SOSUB 3700 

2980 UM=2 

2998 M2=8 

3000 F'S = 12 

3010 IF M2< >0 OR UM< >2 THEN 3040 
3020 R = 7:C=7:P$=CHR$ <219 >:COLOR 11:GOSUB 620 
3 0 3 0 R=5: C=2 8: C Q L O R 11: F' t=C H R $ < 219 > : G O S U B 6 2 0 
3040 RETURN 

3050 REM TYHJENTÄÄ KUUHRUUDUN flLROSHN 
3 0 6 0 P $■ - S TRI N G f- < 3 0,219): C O L O R 1 : C = 3 
3070 FOR R=11 TO 24 

30 8 U G U S U E' 6 2 & 

3090 NEKT R 

3100 0 = 23:P$=STRIN6f<8,219):COLOR 15 
3110 FOR R=12 TO 23 
318 0 G 0 Ei U tj 6 2 0 
3130 NEKT R 

3140 R =11:0=22:COLOR 4:P$=3TRIN Gf-<18,219 >: 

6 OSUB 620 

3158 COLOR 4:P$=CHR$ < 219):C=22 

31 E *0 FUK R = 13 TO 84 
317 0 G O S U B 6 2 0 
3188 NEKT R 

3190 C = 31 

3200 FOR R=12 TO 24 
3210 G O SU E: 620 
3220 NEKT R 

3230 R = 2 4: 0 = 22: P$ = STR I N G f- <10,219 > : COLOR 4 : 
GOSUB 620 

3240 R =17:C=24:P$=STRINGt <6,219):COLOR 6: 
GOSUB 620 

3258 P$=STRIN G $ <7,219):C=8:COLOR 15 
3 860 F UR R ~14 T O 8 0 
38 7 U G O E* U fc! £*88 
3280 NEKT R 
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3290 REM TSJLOSTRA KOJELflUDflH 

H L K U — H K U O IS S H fl N 

3300 P f- = “ S U U" : C O L O R il:R=12:C=5: S O S U B 6 2 U 

3310 P$ ="BEH":R=14:C=4:60SUB 620 

3 3 2 0 P ■$ = " N O P“ :R=17:C = 4: a O S U E' 6 2 0 

3330 P$ = " TEH " : R=20; 04: GOSUB 620 

3340 P$= "LflSK ALAS ": R=23 :C=5: GOSUB 620 

3350 Pi = "PER":R=12: C= 13: GOSUB 620 

33 6 0 P $ = " K O R " : R = 15: C = 16: G 0 S U B 6 2 B 

33 7 El P f- = " N O M " : R = 18: C = 1 6 : G O S U B 6 2 @ 

3380 Pf- = " s 11 ” : R=21: C= 16: GOSUB 620 
3 390 ih UM = 0 T H h M 3 4 40 
3 4 0 0 C O L O R i 

3410 P$=" TUULI":R=15:C=9;GOSUB 5130 
3420 P$ = SIRt<US ) + » KM“:R=17:C = 7:GOSUB 5130 
3438 P* = STR$<UD > + “ AST“:R=19:0 = 7:GOSUB 5i30 
3440 RETURN 

3450 COLOR 1: F't-=STR I NQ$ < 30,2 i9 > : R = 1: C=3: 

G O S U Es fc' 2 0 

3460 P$ = CHR$(219 >:0 = 3 
S! 4 7 0 F O R R = 2 TO li 
3480 G O S U B 6 2 0 
3490 HEKT R 
3500 0=32 

3510 E UR R = 2 TO 11 
3520 G O S U Es E- 2 0 
3530 NEXT R 
3540 0=2 

3 5 5 ti F U R R = 1 T U 2 4 ■ G U S U B 6 2 ti 
3560 NEXT R 

3578 R = 4:0=7:COLOR 12:P$=STRIN G $<11,219 >: 

« J S U fc! fj ci H 

-ii 3 H H R = 5 - L- = 7 H L - O L U R 1 ö « Li U U E« S ui U 
3590 R = 6:0 = 7:Pf = STRIM G $<11,219):GOSUB 
3600 R = 7: 0 = 7: P$ = 5TR I M G f- <11,219): GOSUB 
3610 R = 8:0 = 7:0 O L OR 12:G OS U B 6 2 8 
3628 RETURN 

3630 P$ = STRIN G $< 28,219):0 = 4 
3640 COLOR 15 
3650 FOR R=2 TO 10 
-8 6 6 ti G O G U E- 620 
3670 NEXT R 
3680 RETURN 
3690 REM MAASTOKRRTTA 
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: 

7 0 0 

RESTORE 







" 

710 

FOR 7=2 

TO 

10 





7 

720 

FOR K=4 

TO 

31 





2 

730 

REflD CH 

, RP 






3 

740 

IF CH=9 

7 THEN 

COLOR 

1 



2 

750 

IF CH=1 

12 

THEN 

COLOR 


12 



760 

IF CH =1 

28 

THEN 

COLOR 




z 

770 

IF CH=1 

cL O 

0 R 0 

H= 129 

THEN COLOR 1 

0 

~ 

780 

P$=STRI 

M G $ 

< R P, 

219 > 




“ 

790 

R=J:C=K 

: go 

SUB 

620 




2 

800 

K=K+RP- 

1 






2 

818 

MEXT K, 

j 






: 

828 

RE M DAT 

fl-T 

I EDOT MflflS 

T 

OKflRTT fl 


R 




UflRTEN 




-2 

830 

DflTfl 97 

7 ? 

120, 

5,112, 

il 

, 120,2, 112, 

3,128, 

1 

, 97, 

3,120,2 

, 1 1 

il n O 





O 

840 

DflTfl 97 

, 1, 

120, 

2,112, 

i 

0, 120,1,97, 

6,120,2 


3850 DRTfl 118,5,1£0,1,120,2,112,18,120,7,97, 
3868 DRTfl 128,2,112,2,120,2,97,1,112,19 
3870 DRTR 120,1,97,1,112,3,129,1,112,1,128,2 
3880 DRTR 112,8,120,2,112,8,97,1,120,1,112,7 
3890 DRTfl 120,1,112,3,129,1,112,2,120,8,97, 
5“ 120,3,112,6 

3908 DRTfl 112,5,120,4,112,2,120,5,97,3,120, 
2,112,7 

3910 DflTfl 112,4,120,4,112,7,120,1,97,1,120,3 
3920 DflTfl 112,8,112,2,120,6,112,6,120,4,112, 
4,120,6,120,2 

3938 DflTfl 97,2,120,1,112,5,120,2,112,8,120, 

4,97,4 
3940 RETURM 

3958 REM ALKUEHTO3EH ASETUS 
3968 FU=500 

3970 IF UH=0 THEN 4800 

3 9 3 0 U S = IM T < R H D < 1 > * 3 8 > + 4 
39 9 0 U D = IH T < R M D < 1 > +-3 6 0 > 

4 0 8 8 OI = P R: O C = P C 
4010 RETURM 

4020 P$ = STR IN S $ C 7,219;': C=3 

4030 COLOR 15 

4048 FOR R=14 TO 20 

4 8 5 0 G O SIJ B 6 2 8 

4060 NEXT R 

4070 RETURM 

4080 REM TÖRMÄYS 


6 MSX-pelikirja 
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4090 SOUHD 0,0:SOUND 1,5:SOUND 2,0: 
SGUHD 3,13 

410 0 SO U H D 4,25 5:S O U ND 5,15:S O U HD 6,30 
S O U H D 7, ö 

4110 S O U H D 8,16:S O UN D 9,16:S OU H D 10,16 
SOUND 11,0: 

412ti SOTJND 7 2,5*. SOUHD 13,0 
4130 FOR DE =1 TO 100:NEXT DE 
4140 S O ij H D 12,56: S O U H D 13,0 
415 0 G O S iJ B 402 0 

4160 P$ ="TöRMÄYS":R=16:C = 8:GOSUB 5130 

4170 P$= "MAAHAN“:R=18:0=8:GOSUB 5130 

4180 FOR DE=1 TO 4000:NEXT DE 

4190 REM MUUTTUJIEN NOLLAUS 

4 2 0 0 R O = 0 : F' U = 0 : U E = 0 

421u hL=0 :RD=0:FL=0 

4220 UN = U:UD = 0:US = 8 

4230 IR=0:10=0 

4240 B1=0:B2=0:B3=0 

4250 G OT O 19 0 

4260 REM TfiRKISTfifi LASKUTELINEET 
4270 IF GR=0 THEN 4330 
4 2 30 G USUB 4020 

4 2 9 8 P t- = 11 L A S K U :R=15:C = 8: 6 O S U B 5 13 0 
4295 P$="TELINE":R=16:0 = 8:GOSUB 5130 
4 3 0 0 P $="Y L-":R=17:0=10:GO S U B 513 8 
4305 P$= " HÄÄLLÄ ,! : R= 18: 0 = 8: GOSUB 5130 
4 310 G O T 0 4 U 9 0 

4320 REM TARKISTAA KALLISTUKSEN 
4 3 3 0 I F AB S CB 3-B1> <4 THEN 4 3 9 0 
4 3 4 0 G O S U B 4 0 2 0 

4350 P$= "LIIKAR":R=15:0=8: GOSUB 5130 
4360 P$ = i! KflLLI S-" : R = 1 7: 0 = 8: GOSUB 5130 
4370 P$ ="TUSTA":R =19:0 = 8:6OSUB 5130 
4 3 8 0 6 O T O 4 0 9 8 
4390 PLAY “EOF" 

4 4 0 0 G O S U B 4 0 2 0 

4410 P$="OLET ":R=16:0=18:GOSUB 5130 
4420 P$="MAASSA":R=18:0=9:GOSUB 5130 
4430 FU=500 

4440 p0 = 0 

4450 FOR DE=1 TO 160£i8:NEXT DE 
446 0 G OSUB 4 0 2 0 
4470 PLAY “OE" 
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4480 p-$ = " OLET “ : R= i 5: C= 1 U: SOSUB 5130 
4490 P$="UFiLHIS":R=16:C=9:SOSUB 5130 
4 5 0 0 P f- = " H O U - " : R = 17: C =10: S O S U B 513 0 

4 51 0 p $ =" s u u H": r= 18: c = 1 0 : a o s u b 513 0 

4520 P$ =" ":R= 19 :C =10:SOSUB 51 30 

4530 FOR DE=1 TO 5000:NEXT DE 

4540 su S Li E» 402 0 

4 550 SO TO 14 6 £1 

4560 REM ftLKUflRUOT 

4570 HD=90 

4 5 8 0 P R=6 2 

4590 PC=55 

4600 TS=10 

4618 SR=0 

4620 UM =1 

463@ TR = 6 

4 6* 4 0 T C = 8 

4 6 5 £1 S O S U Ei 3 9 6 0 

4 6 6 0 G O S U B 3 0 6 £1 

4670 SOSUB 3450 

4680 RETURH 

4690 HD=27@ 

4700 PR = 7 0 

4710 F' C=79 

4720 TS = 15 

4730 GR = £1 

4740 UM=i 

4750 TR=6 

476 8 T C = 3 0 

4770 RL=408 

4780 UE =110 

4790 PU=1@0 

4 8 £ 1 0 S O S U B 3 9 6 8 

481 £1 S O S U B 3 £ 16 £1 

4 8 2 £1 S O S U B 3 4 5 £1 

4830 GOTO 202£i 

4 8 4 £1 H D = IN T C R H D < 1 > * 3 6 £1 > 

4 8 5 0 F' R = R N D t 1 > + 50 + 4 0 
4 8 6 8 F' C = R N D < 1 > +1 6 £1 + 6 £1 
4870 UM=2 

4 8 8 £1 H L = IH T < R N D < 1 ) + 3 0 £1 £ 1 !) + 4 £1 £1 £1 

4890 UE = INTCRND( 1 }*50:■ +100 

4908 PU=130 

4910 GR =1 

492 £1 G O S U B 3 9 6 £1 
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4 9 3 0 6 O S U B 3 0 6 0 
494 0 S O S UB 222 0 
4950 P % — S TRI N G $ (. 3 0,21 9 > 

4960 COLOR 1 

4978 R=1:C=3:60SUB 620 

4980 C = 3:P$=CHR$ <219> 

4 9 9 0 F U R R — 2 r U 11 

5 0 0 0 G O S U B 6 2 8 
5010 HEKT R 
5020 C=32 

5030 FuR R=2 TO 11 
040 G O 8 U B 620 
5050 NEXT R 
5060 C=2 

5 ö 7 0 F U K R = 1 T O 2 4 

50 8 8 6 O S U B 6 2 0 
5090 HEKT R 

51 0 0 G O S U B 3 7 0 0 

5110 PS = POINT<INTCPC210+,5>*8-1, 
IH T ■: P R / 10 +. 5 > * 8 - 1 > 

512 0 GO T O 2 0 2 Q 

5130 COLOR 1,15 

5140 F* R E o E T ( ( C — 1 " 8, C R — 1 J 4:8 ,- J 

•5150 PR I NT# 1, F'$ 

516 0 R L ' U R H 
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KODIN TIETOREKISTERIT 



Onko osoitekirjasi sekaisin? Hukkaatko puhelinnumeroita tai 
unohdatko syntymäpäiviä? Tämä monipuolinen ohjelma aut¬ 
taa sinua selviytymään tämäntyyppisistä ongelmista. Sen 
avulla voit luoda ja päivittää tiedostoja, joita ovat esimerkiksi 
nimi- ja puhelinnumerolistat sekä tiedot syntymäpäivistä, ruo¬ 
karesepteistä jne. Ohjelman avulla voit etsiä juuri tiettyä tie¬ 
toa tai voit saada esiin koko tiedoston. 

Ohjelmassa on valikko, josta valitaan jokin kahdeksasta toi¬ 
minnosta. 
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1. Syötä uusia tietueita - tätä käytetään, kun aloitetaan uusi 
tiedosto tai lisätään uusia tietueita vanhaan tiedostoon. 

2. Muuta tietuetta - tällä muutetaan tietueen nimeä tai siinä 
olevaa tietoa. Voidaan myös lisätä tietoa tai tuhota koko 
tietue. 

3. Tulosta tietueet kuvaruutuun - kirjoittaa koko tiedoston ku¬ 
varuutuun. 

4. Kirjoita tietueet paperille - sama kuin edellä, mutta tulos¬ 
tuksen hoitaa kirjoitin. 

5. Etsi tietueet - tällä tehokkaalla toiminnolla voit etsiä ja tu¬ 
lostaa tietueita niiden nimen perusteella tai vieläkin käte¬ 
vämmin voit selata tietueita etsimällä tiettyä hakusanaa, 
joka voi olla mikä tahansa sana sekä kirjain tai numero- 
jono. Jos et tiedä kenen syntymäpäivä on tänään, voit an¬ 
taa koneelle päivämäärän ja ohjelma etsii tämän perusteel¬ 
la, missä tietueessa on vastaava nimi ja tulostaa sen sinul¬ 
le. 

6. Lajittele tietueet aakkosjärjestykseen - paljon helpompi ja 
nopeampi kuin käsin lajittelu. 

7. Lataa nauhalta - lataa aikaisemmin tallennetun tiedoston 
nauhalta. 

8. Tallenna nauhalle - käytä tätä aina ennen kuin sammutat 
tietokoneen! 

Vaikka ohjelma onkin kehitetty erikoisesti kotikäyttöön, sitä 

voidaan käyttää myös monissa pienissä yrityksissä, mm. 

asiakastietojen ja postitusluetteloiden tekemiseen. 


Rivin n:o 

Tietoja ohjelmasta 

160 

Varaa tilaa merkkijonoja varten. 

180 

Tietue- ja tietueennimitaulukon tilavaraus 

220-340 

Kirjoittaa valikon. 

360-390 

Odottaa tietoa toiminnon valinnasta. 

400 

Hyppää valittuun ohjelman kohtaan. 

420-590 

Uusi tietue 
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610-1190 

630-730 

740-780 

800-920 

940-1030 

1050-1080 

1100-1130 

1150-1190 

1210-1310 

1300-1430 

1450-1840 

1450-1550 

1560-1680 

1700-1840 

1860-1960 

1980-2100 

2120-2270 

2290-2300 

2320-2360 


Muuta tietuetta. 

Etsi tietueen nimi. 

Tarkista, onko tietue oikea. 

Mitä tietueelle tehdään? 

Tuhoa tietue. 

Vaihda tietueen nimi. 

Muuta tietuetta. 

Lisää uutta tietoa. 

Kirjoita tietueet kuvaruutuun. 
Kirjoita tietueet paperille. 

Tutki tietueita. 

Nimi tai merkkijono? 

Etsi nimi ja kirjoita löydetty tietue. 
Etsi merkkijonoa. 

Tietueet aakkosjärjestykseen 
Lataa tiedosto nauhalta. 

Tallenna tiedosto nauhalle. 

Viive 

Aliohjelma näppäintietojen lukuun 


Ohjelma: TIET-JS 


100 

REM 


+ * * * +:+: 

110 

REM 



1 2 0 

REM 

* KODIN 

TIETOREKISTERIT * 

138 

REM 

* 

+• 

140 

REM 

+. 

* + * + 

150 

REM 



160 

CLEH 

R 300 ti 


170 

REM 

TfiULUKK 

OJEN TILRUARflUKSET 

TIE- 

- 

TL 

EITÄ JA HIIDEN NIMIÄ 

180 

DIM 

R-± < 500 > 

, N i < 5 0 0 > 


190 COLOR 1,15 
280 CLS 

219 REM TULOSTAA UAL IKON 

220 LOCfiTE 9,1 


230 

PRINT 

"KO 

DIN TIETOREKISTERIT" 

240 

LOCATE 

0 , 

4 

250 

PRINT 

" 1 . 

S y ö t o, u u siä tiet u eitä" :PRI N T 

260 

PRINT 

H •“« 

Muu ta tietuettä ": PRINT 

270 

PRINT 

Jl “j 

T u lasta t i e t u. e e t k u y a r u u d u 1 I 

_ il n 
*=: 

PRINT 



2 8 0 

PRINT 

"4, 

Kirjoita tietueet paperi11 e":PRINT 

290 

PRINT 

1* ET 

» 

Etsi tietueet":PRINT 
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308 PRINT "6. Lajitta le tietueet":PRINT 
318 PRINT "7. Lataa nauha 1 ta":PRINT 
3 2 8 P RI N T "8. Talle nna n a uh a11 e":P RINT 
330 LOCRTE 0,21 

340 PRINT "Ualitse oikea numero..." 

3 5 8 R E M 0 D U T T H H U fi S T fi U S T H J fi H Y U a K o 

YY SEN 

360 R$= I NKEYf- 

370 IF fl f- =" " THEN 368 

380 BEEP 

390 IF fi$<"1" OR H $ >"8“ THEN 370 

408 ON Ufl L t fl $> GOTO 420,610,1210, 1338,1440 

1860,1980,2120 

418 REM UUSI TIETUE 

420 CLS 

430 LOCRTE 0,6 

440 IN F' U T ' 1 0 n k o t ä m ö. u u s i tiedosto"’ Q t 
450 IF L E F T $ < Q $ , 1 > = " k " OR 'LEFT $ < 0$ , 1 > = “ K " 
THEN J=1 ELSE J=J+1 

4 t- 0 0 L S 

47ö LOCRTE 8, *3 

480 PRINT "Syötä uudet tietueet - kirjoita 
L 0 P F’ U , k u n lopetat. " 

490 PRINT:PRINT 

500 LINE INP U T "Tiet ue e n nimi? ":N $ CJ> 

518 IF Nt-( J > = "LOPPU" OR N$CJ) = " loppu" THEN 
580 

520 PRINT 

530 LINE IN F'UT "Tie tos i sä 1 tö? " ; R$< J t 
54 @ if R$<Jj = “LOPPU" OR R$(J) = " loppu." THEN 
588 

550 PRINT:PRINT 

560 -I = J+i 

578 GOTO 500 

580 J=.J-1 

590 GOTO 200 

600 REM MUUTA TIETUETTA 

610 CLS 

620 N=0 

630 LOCRTE 0,3 

fc. 4 0 INPUT "Tiet u. e e n n i m i " ; T f- 
650 PRINT:PRINT 
660 M=1 

670 IF Tf = N$<M> THEN N = M’.G0T0 740 
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688 M=M+1 

b 9 0 I F M < > 3 T H h H 6 7 8 
780 IF H< >0 THEH 728 

710 FRIMT "Tietuetta nimeI tä ei 1 öy dy” 

7 2 0 GO SU B 229 6 

730 GOTO 208 

740 PRINT Nt(N):PRINT 

750 PRINT Rf-CN> : PRINT 

768 IH P U T " T ä m ä tiet u e " ; Q f- 

770 IF L E F T $ C Q$, 1 > = " K “ UR LEFTf- < Qt , 1 > = " k " 

Then 800 


780 

GOTO 680 


790 

REM MUUTA TIETUEEN UALIKKO 

800 

CL S 


81W 

LOCATE 8,4 


820 

PRINT "1. Tuhoa 

tie tue" l PR I NT 

830 

PRINT "2. Muuta 

t i e t u e e n n i m i " “ P RIH 1 

840 

PRINT "3. Muuta 

tie tosisä 1töä":PR I NT 

850 

PRINT "4 , Lisää 

tietoa":PRINT 

8 6= 0 

LOCATE 8,14 


870 

PRINT "Ua1itse o 

i k e a m u. m ero. . . " ” F' K IN T 

880 

At= INKEYf 


890 

IF H$="" THEN 88 

0 

900 

BEEP 


910 

IF A$< " 1 " OR A $■ > 

"4" THEN 880 

920 

ON UALCAf> GOTO 

940.1050.1100,1150 

930 

REM TUHOA TIETUE 


940 

FOR M=N TO 3 


950 

N f < M > = N $ < M +1 > 


960 

Rt<M>=Rt<M+l> 


970 

N E KT M 


980 

N $ < 3 > = " " 


990 

Rf- < 3 > = " " 



1000 J=3-i 

1010 PRINT "Tietue tuhottu" 

1028 60SUB 2290 

1030 GOTO 208 

1840 REM MUUTA N IMEÄ 

1050 INPUT "Uusi mimi";N$(N> 

1068 PR INT:PR I NT"Nimi muu te ttu” 

1070 60SUB 2290 
1880 GOTO 200 

1890 REM MUUTA TIETOSISÄLTÖÄ 
1100 INPUT " Uus i tie tos i sö. 1 tö " ; R$ < N > 
1110 F'R I NT: PRINT "Ti e tosi söi tö muutettu" 
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1120 

S 0 S U B 

229-0 

1130 

GOTO 

200 

1 1 4 0 

REM LISÄÄ TIETOA 

115 0 

INPUT 

"Li sö. t i edo t" ; T$ 

1160 

R i < H > 

=R$<N>+" - “+Ti 

1170 

PRINT 

:PRINT"Uusi tieto 

11 80 

GOSUB 

2290 

1190 

GOTO 

200 

1 2 0 0 

REM T 

ULOSTA TIETUEET 

1210 

CL S 


1220 

Df = ST 

RING$<36,2195 


1238 FOR H=1 TO J 

12 4 ö P RIHT:P RINT"Tiet u e e n n i m i : “;N$< M > 
1250 PR IHT: PR IHT Rf-<M> 


1260 

PRINT:PRINT Di 



1270 

FOR DE=1 TO 100:NEXT DE 



1280 

GOSUB 2320 



1 2 9 0 

N E K T M 



13 O Ei 

GOSUB 2290 



131R 

GOTO 200 



1320 

REM KIRJOITA TIETUEET PAPERILLE 



1330 

C L S 



1340 

LOCfiTE 8,6 



13 5 0 

LINE INPUT "Paina enter, kun kir 

jo 

iti n 

O Tl '• 

a I iii is" ; H Ui 



13 6 Ö 

FOR H=1 TO J 



1370 

LPRINT 



13 8 0 

L P RIN T "Tie t u e e n n i m i : " : N f- < M ) 



13 9 0 

LPRINT 



14 0 0 

LPRINT R$<M ') 



1410 

LPRINT 



1420 

NE KT M 



1430 

G 0 T 0 2 0 0 



1 4 4 0 

REM ETSI TIETUEET 



1450 

p [_ Q 



146 0 

LUUATE 0,6 



1470 

P Rl IN T " 1 . Tiet u. e e n n i to e n ft i u k a a n " 

= p 

Rl NT 

14 8 0 

P K IN T “ 2. Ha k u. s a n a n to u k a a n " : F’ RIN i 


149y 

L U C A T E 0 ; 12 



1500 

P RIN T "U a 1its e oik e a n u mero...": 

rt r« 

1” K 

INT 

1510 

A i = IN K E Y i 



1520 

IF Hi—"" THEN 1510 



15 3 0 

B E E P 



1540 

I F Ai<"1" 0R Ai>"2" THE N 1510 



1550 

0 N UA L Cfti) G 0 T 0 15 6 8 7 17 80 








91 


15 68 INP UT "Tie t u e e n nimi“;Tt 
1570 PRINT 
1580 F=0 

1590 FOR M=1 TO J 

1600 IF N$ < M > < >T$ THEN 1640 

1610 PRINT "Tie t u e e n n i m i : " ; N t < M > 

1620 PRINT:PRINT R$<M) 

1630 F=1 

1640 NEXT M 

1650 IF F=1 THEN 1670 

1660 PRINT:PRINT"Tietue t ta ei 1öydy" 
167 ö G O S U E' 229 0 
1680 GOTO 200 
1690 REM HAKUSANA 

1700 I NPUT "Etsit tö.Mä ha kusana " : T$ 

1710 F=0 

1720 FOR M=1 TO J 
1730 X=INSTR<N$<M),Tf) 

1740 IF K<>0 THEN 1776 
1750 X= INSTR Rt ( M ) , Tt> 

1760 IF H=0 THEN 1800 

1770 PR INT : PRI NT " Tietuee n n imi :"“ Nt CM > 

1780 PR INT:PRINTRt<M>:PR I NT 

1790 F=1 

1880 NEXT M 

1810 IF F=1 THEN 1830 

1820 PRINT:PRIHT"Tietuetta ei löydy" 

183 0 G O S U B 229 8 
1840 GOTO 200 

1850 REM TIETUEIDEN LAJITTELU 

1860 CLS 

1870 LOCfiTE 0,6 

1880 PRINT " L a j i 11 e i u - -- ■ 

1890 M=i 

1900 IF N$(M)<H$CM +1 > THEN 1940 
1910 S U fl P N $ < M > , N t < M +1 > 

1920 S W fl F' R $ < M > , R t < M +1 > 

1930 GOTO 1890 
1940 M = M +1 

1950 IF MOJ THEN 1980 

1960 GOTO 200 

1978 REM LATAUS NAUHALTA 

1980 CLS 

19 9 0 L O C H T E 0,6 
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2008 PRINT "Lataa nauha 1 ta":PRINT 
2010 LINE INPUT "Paina enter, kun kassat ti 
o m y a 1 m i in a " ; H U $ 

2020 PR I NT:PR I NT "La taus ..." 

2030 OPEN "KRS:TIET" FOR INPUT RS 1 
2040 INPUT #1,3 
2050 FOR M=1 TO 3 
2060 INPUT# 1, H $ i. M > 

2070 INPUT # 1 , R $ <M} 

2080 HEKT M 
2890 OLOSE 
210 0 G O T O 2 ö 0 

2110 REM TALLENNUS NAUHALLE 

2120 CLS 

2130 LOCRTE 0,6 

214 0 P RINT "Talle nna n a uha11 e":PRINT 
2150 LINE INPUT "Paina enter, kun kassetti 
o n u a 1 m i i n a " : N U f- 
2160 PR I NT:PR I NT"Tai 1 ennus..." 

2170 MOTOR ON 
218 0 G 0 S U B 2 2 9 0 
2190 MOTOR OFF 

2200 OPEN "KAS:TIET" FOR OUTPUT AS 1 
2210 PRINT#1,3 
2220 FOR M =1 TO 3 
223O P RIN T # 1, N f- < M > 

2240 PRINT# 1, Rf- CM 
2250 NEXT M 
2 2 6 0 C L O S E 
2270 GOTO 200 
2280 REM UIIUE 

2298 FOR DE=1 TO 2500:NEXT DE 
2300 RETURN 

2310 REM ODOTTAA NÄPPÄIMEN PAINALLUSTA 

2320 Z± = I NKEYf- 

2330 IF Z$="" THEN 2360 

2340 Z$=INKEY$ 

2350 IF Zf-="" THEN 2340 
2360 RETURN 



PEIKKOLUOLAT 



Kaukaisessa maassa, lukemattomien harmaakiviluolien kät¬ 
köissä asustaa oikein epämiellyttävä hirviö nimeltä Horkki 
Hirmuinen. Jostain syystä Horkki on ottanut tavakseen syödä 
pari paikallista asukasta iltapalakseen joka ilta, ja niin on 
Horkista tullut oikea kiusankappale. Siksi nyt tarvitaankin 
joku urhoollinen hävittämään tämä hirviö. Se sankari voisit 
olla sinä! 

Tehtävä ei ole kuitenkaan aivan yksinkertainen. Kiehuvien 
laavakuoppien ympäröimiä luolia vartioi lukuisa joukko ilkeitä, 
vihreitä peikkoja, joiden erikoisherkkua ovat oudot ja pelotto- 
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mat seikkailijat. Ja mikä pahinta; sinulla on käytettävänäsi 
luolissa vain kuusi nuolta. 

Hyvänä puolena on kuitenkin se, että näillä pahalaisilla on ta¬ 
pana muuttaa luolien väriä seuraavasti: 

Kaikki peikkojen vieressä olevat luolat muuttuvat vihreiksi. 
Kiehuva laavakuoppa muuttaa luolat punaisiksi. 

Hirviö muuttaa luolat sinisiksi. 

Tämä on sinulle varoituksena poistua välittömästi luolasta. 

Kaikki ohjeet ovat ohjelmassa, joten älä enää viivyttele! 


Tietoja ohjelmasta 


Rivin n:o 
220-500 
520 

540-640 

660-890 

910-950 

970-1000 

1020-1070 

1120-1140 

1170-1190 

1230-1290 

1310-1370 

1390-1450 

1470-1520 

1540-1610 

1630-1660 

1690-1800 

1820-1890 

1900-1950 

1970-2030 

2040-2160 

2170-2210 

2240-2320 

2340-2420 

2440-2500 

2520-2530 

2540-2560 

2570-2630 


Kirjoittaa peliohjeet. 

Luolatietojen taulukkojen tilavaraus 
Asettaa alkuarvot. 

Pääty- ja sivuseinien piirtäminen 
Lukee ja tallentaa luolakartan. 

Hirviön paikka satunnaisesti 
Peikkojen paikat 
Tarkistaa, asuuko luolassa joku. 
Tarkistaa ja värjää luolan. 

Suuntana pohjoinen 
Suuntana etelä 
Suuntana itä 
Suuntana länsi 

Odottaa suuntatietoa näppäimistöltä. 
Tarkistaa kulun esteettömyyden. 
Nuolen ampuminen 
Tarkistaa osuman. 

Ei osunut. 

Hirviö sai sinut. 

Putosit kuoppaan. 

Peikot söivät sinut. 

Luolien DATA-tiedot 
Osuit peikkoon. 

Osuit hirviöön. 

Viive 

Ilmoittaa nuolien lukumäärän. 

Nuolet loppuivat. 
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Ohjelma: PEIK-JS 

1 0 0 R E f ! 1 * * * * * * * * ■¥ * + * + * * * 

110 REM * * 

120 REM * PE IKKOLUOLRT * 

1 3 u R h M : + ; * 

1 4 0 R E M * * * + +• t; # * :+: * +¥ ¥ ¥ ¥ 

150 REM 

16 0 C L E H R 5 0 0 

17 0 C L S 

180 COLOR 1,15 
190 R=RND <. -TIME} 

280 LOCflTE 9,2 
210 REM OHJEET 
220 PRINT “PEIKKOLUQLfiT" 

230 LOCflTE 0,9 

240 PRINT "Paina näppäimiä P E I tai L 
k o. ä n t y ä k s e - s i h -31 u a m aasi i i m a n s u. u ni t a a n = 
Pääset e t e e np äin nä p p äim e 11ä K.":PRIN T: 

PRINT 

25 0 P RI N T " M u. i s t a, että m o i t lii k k u a y a i n 
p a i n a - m a 11 a n ä F’ p ä i n t ä K » “ : P R IN T; P RIN 
T 

2 6 0 LI N E IN P UT " J a t k u. u, p a i n a E N T E R. . . " r , H U $ 
278 BEEP 

280 CLS 



2 9 8 

LOCflTE 

0,5 



300 

PRINT " 

L u o 1 i s s a o n 

y a a r o j a: " 


310 

LOCflTE 

0,8 



il 0 

PRINT " 

1. K ien uy i a 

I a a y a k u o p p i a - 


muut tayat 

kaikki 

yiereiset 1uo 1 at pu 


a i s 

i k s i . " 




330 

PRINT 




348 

PRINT " 

2. Peikot - 

mu u 11 a va t kai k ki 


M i 

ereiset 

1 u o i a t y 

ihraiksi." 


350 

PRINT 




360 

PRINT " 

3. Hir m iö - 

m uu 11 aa viereiset 


1 u c 

I a t 

s i n isiksi 

" :PRINT:PRINT 


37@ LINE INPUT "Jatkuu., paina EHTER...”' 
NIJ f:CLS 
380 BEEP 
390 CLS 

408 LOCflTE 0,3 

4 1R P RIH T " T e h t ä v ä s i o n e t s i ä j a t u. h o t a 
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h i r y i ö « S i i h e Ti t a r k o i t u k s e e h s. i n u. 11a 

n kuu s i nuo 1 ta, " 

429 PRINT 

4 30 PRINT " Uoitä mp u a paina ma 1I a 
y älil y ö Ti 1 1 n ö. p- - F - o. i n t ä , " ; F' RIN T 


440 

PRINT 

" M y ö s Hei k o t 

M O 

idäan tuhot 

a 

Tl U O 

■ lilla. 

": PR I NT 




458 

PRINT 

"Jos ammut o 

h i , 

j uo kseva t 

k a i k k i 

pe i 

kot ja 

hir viö eri 

I uo 

lii n, <J o k u 

a 

h k ö. 

S-B — lYi 

a a n 1 u o 1 a a n, 

m i 

s s ö. si n ä o I 

H t . ) 

460 

PRINT 





478 

PRINT 

"Häviät peli 

n ? 

jos me net I 

uoI aan , 

j o s 

s a o n 

j o k i n v a a r o i 

s t a 

tai jo s n u 

Ö 


lesi lop-puvat. “ 

480 PRINT:PRINT 

490 LINE INPUT "Peli alkaa, paina ENTER... 1 
NO f 

5U0 BEEP 

510 OPEN "GRP:" RS 1 
520 DI M M(25,68 > 

530 REM RLKURSEMR 
540 R=7 
550 0=7 

560 REM JR RLKUSUUNTA 
570 DR=2 
580 00=2 

590 REM NUOLIEN LUKUMÄÄRÄ 
600 RR=6 

610 REM PEIKKOJEN LUKUMÄÄRÄ 

620 SB=5 

630 CLS 

640 GOTO 920 

650 REM LUOLIEN PIIRTO 

660 COLOR CO 

6 7 W D R R U " B M 9 0,6 0 ; R 8 0 D 8 8 L 8 0 U 8 0 11 
6 8 0 P R I N T < 100,7 8 > , 0 0 
690 RETURN 
700 COLOR CO 

71@ DRfiU "BM90,60;R80D80L20U5H2U4H3U1H1U15 
H3U10L5H2L8G2L2G1L2G5D1Ö62D14G1D11L21U 88" 
720 PR I NT<180,78 >,CO 
730 RETURN 
748 COLOR CO 
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750 DRRU "BM170,60;E56D180H50U88“ 

760 FRIHT C175,98 >,CO 
770 RETURN 
780 COLOR CO 

7 9 0 D R fi l.J i! B M 9 0,6 8; H 5 0 D1 8 0 E 5 8 U 8 8 " 

88 8 FBI N T C 85,7 ö >,CO 

818 RETURN 
820 COLOR CO 

8 3 8 D R fi U “ B M 17 0,68; E 5 0 D18 8 H18 U 9 H 2 U 2 4 U10 
ElU23H6S3L2S4L161FD9S1D 9 G 1D28H12U80” 

848 PR IHT C175,90>,CO 
850 RETURN 
868 COLOR CO 


8 7 a D R fi U " E' M 9 Ei, 60; fi 5 Ei D18 0 fc. 18 SJ 9 E 2 U 
U10E1U2 3 E 6 F 3 L 2 F 4 L1F 6 D 9 F 1D9F1D24E8 
8 88 P fiIH T C 80,65),CO 


12E2U12E2 

U80" 


h 98 R t T U R N 


908 REM LUKEE LUOLIEN KARTTATI EDON 

910 RESTORE 

928 FOR J=2 TO 10 

930 FOR K- 2 TO 25 

940 REfiD M< J,K> 

950 NEXT K,J 
9 6 8 R h M fi 1R UI o H H S t M fi 


970 P1 = IH T C R H D < 1 > * 8 > + 1 
988 P2=INT C RNDC1>+22 > +2 

990 IF M C P1, F‘2>< > 1 OR CP 1=7 AND P2=7> THEN 
970 

1000 M C F' 1 , P2 > = 3 
1010 REM PEIKKOJEN fiSEMfi 
102W F O R 1=1 I O Li Ei 
103 0 P1 = IN T C R N D C 1 > + 8 > + 1 
1840 P2=IHT CRNDC1> +22> +2 

1050 IF MCP1,P2>< >1 OR CP 1=7 RND P2=7> THEN 
18 3 0 

106 0 M C P1, P 2 > = 4 
1070 NEKT J 
1088 SCREEN 2 
1090 COLOR 15,1,1 
1100 CLS 

1110 REM TUTKII LUOLAN, JOSSA OLET 
1120 IF MCC,R)= 2 THEN 2840 
1:30 IF MCC,R>=4 THEN 2178 
1140 IF M C C,R >=3 THEN 1978 


7 MSX-pelikirja 
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e n e ‘ s e 


b ö h L S b 




100 
1 0 0 
1 0 01 
1 0 0 
6 9 @ 

1 6 2 £i R E M O N K O LIIKE M H H D O L LIN E N 



1630 

le DR= 

1 THEN R=R—l:IF 

M < 0 , R > 

= 0 i HE N 

r— 

R=R + 

1 : GOTO 

154 0 




i 6* 4 y 

T £T f’-. Q_ 

2 THEN R = R+1 : IF 

M < 0 , R ) 

= 0 THE N 

r— 

R = R- 

1 : GOTO 

1548 




16 5 0 

1 h DR = 

3 THEN C=C+1:IF 

M C 0 , R > 

=0 THEN 


C=C- 

i ; G o T o 

1 540 




1 6 t> 0 

IF DR = 

4 THEN 0 = 0-1 : IF 

fi ( 0 , R ) 

=0 THEN 

.— 

c = c + 

1 : GOTO 

■i ET A s“i 

i J t “F ö 




167 0 

G 0 T 0 1 

1 0 0 



■ — 

1680 

REM HU 

OLEN AMPUMINEN 




16 y m 

I F H R < 

1 THEN 1540 



— 

1 7 0 0 

I F H -?• = 

0 H R $ 3 2 j THE N 1 

710 ELS 

E 1540 


1710 

SOUND 

6, 1 5 



— 

1720 

S 0 U N D 

1* ? ’■ 




17 3 0 

SOUND 

S ? 16 




1740 

S 0 U N D 

9, 16 




1 

SOUND 

S 01 i N D 

18,16 

11,0 




1770 

S U U N D 

12,16 



— 

17 8 0 

SOUND 

13,4 




1790 

FOR DE 

=1 TO 1000:NEXT 

DE 


— 

1880 

H R — H K ~ 

1 




1810 

R E M i Fi R KIS T R H 0 S U M fi N 



— 

1820 

i F D R — 

1 AND M<C,R-1>= 

3 THEN 

M <: 0, R - 1 > = 


1 > Li U 

TO 2440 




,— 

1830 

IF D R = 

= 1 HND M < 0, R-1 > = 

4 THEN 

M 0, R — 1 ) = 


USD TO 2340 







1480 

IF M<0,R-1>>0 THEN 
B 7 4 8 

IF M < 0,R+1)>0 THEN 

Li U b U o 

— 

!„! U b U 

14 9 0 

GOSUB 


G 0 S U 

B 780 



1 5 0 0 

COLOR 15 



151 g 

PRESET C 84, 180) 



1520 

PR I NT# 1 , 11 SUUNTA LÄ 

N TEE N" 


15 3 Ei 

REM ODOTTAA TIETOA 

NÄPPÄ 


1540 

H$ = I NKEYf- 



1550 

IF A$= “ !I THEN 1540 



1560 

REM SUUNTIEN NUMEROT 


1570 

IF H$= ,! P” THEN DR = 

1: GOTO 


1580 

IF H$="E" THEN DR= 

2 ; G 0 T 0 


1590 

IF R$=”I” THEN DR= 

3: GOTO 


16 0 0> 

IF Af-="L“ THEN DR = 

4: GOTO 


161 Ei 

IF A$ =K M THEN 163 

0 ELSE 
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18 4 @ 

T f-- f} P := 

2 RND M <C, R +1 

> = 3 

H 

:x 

m 

o 

70 

+ 

II 

i: soi 

H 2440 




1 HriPf 

1 F L> K 

2 H ND M<C,R+l 

> = 4 

i H E N M K U , K + 1 '} — 

1 o ti U T 

0 2 3 4 0 




1860 

IF D K “ 

■~l H H £) M ( R -f -1 _ R 

) “ 3 

THEN 2440 

1 ”7 Ci 

IF DR = 

3 RND M<C +1,R 

> =4 

THEN f-KC+l , R> = 

i j h y 1 

O 2340 




i o o ^ 

X F D R = 

4 n 11 U **1 \ j _- — x -» r-. 

>-3 

THEN 2440 

1 H4H 

1 F DR = 

4 RND MCC—1 7 R 

} = ex 

THEN M <C-1, R) = 

l: SOT 

O 2 3 4 0 




1 900 

UULUR 

1 et 



1910 

PRESET 

< 5 0 ,7 0 > 



19 2 ö 

H RI H T # 

1 , " ET OS 

UN UT 

! " 

1930 

SO SUB 

2540 



1940 

G 0 S U B 

2 5 2 8 



1958 

Li U I U 7 

-t 

X 0 



19 6 0 

G U I U 2 

658 



1 9 7 0 

L- U L. U K 

15 



1 9 8 0= 

FkIFhET 

( 5 0 r . 7 ö ) 



19 9 0 

PRINT# 

1 a pj T p I | T ,- s C; p T 

s t N]jT ! " 

2 0 0 0 

SOUND 

7 ? 56 



2010 

PLnY " 

U 2 li F b. U U U 1 H H Li h 

ED" 


2020 

H 11 S I ! R 

2528 



2 93 0 

S 0 T 0 1 

9 6 8 



2040 

C0L0R 

i j 



2050 

P P P P T 

< 3 0,7 0 '} 



2 0 6 0 

F' R I n T # 

i 55 p i 5 T n OTT ! Q 

i ? 5 =_5 ! 5_J i 5 i_ 2 2 

fiURK 

UOPPflflN ! 11 

20 70 

F 0 R J = 

4 8 T 0 2 5 5 



2 0 8 0 

SOUND 

i r . 2 D 4 



2 0 9 8 

Hill s H D 

o i p: 



21 0 0 

S 0 IJ H D 

0 , .j 



2 1 1 0 

SOUND 

1 r- 0 



2120 

NEXT J 




2130 

SOUND 

8,0:SOUND 7,5 

6 


214 Ei 

PL RY “ 

L9;02:D" 



2150 

SO SUB 

2520 



216 8 

SO TO 1 

9 6 8 



2170 

COLOR 

15 



2180 

p s r~t p «Z- CT T 

k 65,7 O ) 



2190 

PRINT#!,"PEIKOT Söi 

UaT 

SINUT ! 11 

2280 

SOUND 

7 ? 5 6 



2210 

SO TO 2 

0 1 0 



282 a 

SOSUB 

2520 



2230 

REM LUOLIEN DflTR-TI EDOT 


2240 

DRTfl 0 

, O, 0 , ö, 8 , 8 , ö. 

0 , 0 , 

2 , 0 , 0 , 0 , 0 , 0 , 0 , 
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2 ,0,0 J 0 ; 0,2,0,0 

2250 DATH 0,0, 1,1, 1,1,0,0,0,1,0,0,0, 0 , 0, 0 
2260 DAT A 0,0,0,0,l,l,0>8jW,l,0,l,l,l,l,l 


2£70 D H T H 0,0,0,l,i.,i,0,0,i-,l,i,x,w,i,0,0, 
0 , 0 , 1 , 0 ,0, 1, 0 , 0 

2280 DH ! H 0,0,0, 1,0,1, 1,0, 0,0, 1,0,0; 

0,0, 1,1,1,1,1,2 

2290 DATA 2,l,l,l,l,l,l,l,i,l,l,l,l,l,l,0 : 

1 i -f -f i Ci i 

2300 DATA 0,0,0, 1,0, 1 , 1,0, 1,0,0 , 1,2,0 r . 0,0. 

0 , 0 , 0 , 0 , 1,0 - 0,0 

231 0 DATA 0,0,0,1,1,1,0,0,1,1,l,i,0,0,0,0 : 

0,0,0, 1,1, 1,2,0 

2320 L>H ! H 0,0,0,0,2,2,0i0,0,^,0, i , 1? 1? 1 , J. : 

1 , 1 , 1 , 1,0 , 1 j 2 ‘ 0 

2330 REM MAALIMA PEIKKO 

2 3 4 0 P R E S E T < 5 0,7 0 > 

2350 COLOR 15 

23 69 PRINT#! 7 " O S UIT P E I K K O O N < " 

237 0 S O U H D 7,5 6 


3 8 0 

F’ L A Y 

" T 2 4 0 

396 

QB = 8B 

~ i 

4 0 0 

SO SUB 

2540 

410 

SO SUB 

2520 


GOTO 

1080 


2430 REM MAALINA HIRUI6 
2440 COLOR 15 
2450 PRESETC50,70) 

2 4 6 0 PRINT#!,"O S UIT HIR UIö öN!" 

2470 SOU N D 7,5 6 

2 4 8 0 P L H Y ” T15 0 P U 3 H U 2 D L. 12 0 O 3 E* O 2 D L 4 Li O 3 E! O 2 
L15D “ 

_ f 

249 0 SO S U B 252 0 

2 5 O O S O T O 1 9 S 0 

2513 REM UIIUERUTIINI 

2 5 2 0 F U R D E — 1 T U 1900» H E K T L- 1 E 

2530 RETURM 

2540 F 1 R E SE T c 65,20 ) 

2550 PR I NT# 1, “ NUOLI H JÄLJELLÄ 11 ; HR 
2560 IF HR<>0 THEN 2640 
2570 GOSUB 2520 
2580 SCREEN 6 
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PINGVIINI 



Näyttää siltä, että pingviinit ovat pulassa kaukaisilla Etelä- 
mantereen erämailla. Sadat rosvoilevat linnut yrittävät jatku¬ 
vasti syöksyillen tuhota pingviinien munat. 

Vaikka näillä onnettomilla luontokappaleilla onkin uusin 
MSX-laser-ase käytössään, on heillä tiukat paikat, joten si¬ 
nun apuasi tarvitaan. 

Liiku kohdistimen ohjausnäppäimillä vasemmalle ja oikealle 
ja ammu välilyöntinäppäimellä. Linnut voidaan tuhota joko la¬ 
ser-aseella tai vanhanaikaisemmalla, mutta yhtä tehokkaalla 
tavalla - juoksemalla niitä päin. 
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Tähtää tarkasti, sillä laser-aseen lataamiseen kuluu pari se¬ 
kuntia laukauksen jälkeen. 

Tietoja ohjelmasta 


Rivin n:o 
200 

210-220 

250-260 

280-300 

310-410 

430-470 

500-610 

690-810 

870-930 

950-960 

980-1030 

1040-1050 

1090-1130 

1180-1450 

1470-1570 

1580-1770 

1790-1870 

1900-2000 

2020-2100 

2140-2420 

2430-2450 


Pingviinirivi 

Aliohjelmat keskeytyksille 

Odottaa tietoa näppäimistöltä; ajantasausalioh- 

jelma, jos mitään ei paineta. 

Liikuttaa pingviiniä sivusuunnassa. 

Testaa laserin valmiuden, ääniefektit. 

Liikuttaa laser-spritea. 

Kirjoittaa otsikon ja peliohjeet. 

Pingviini-, laser- ja lintu-spritet 
Piirtää maiseman. 

Lisää auringon. 

Lisää lokit. 

Keskeytykset päälle 
Piirtää munat. 

Pääohjelmasilmukka; liikuttaa lintuja. 

Kaikki munat menetetty. 

Pelaajan nimi; parhaat tulokset 
Kysyy uutta peliä. 

Asettaa lintujen paikan satunnaisesti. 

Kirjoittaa tuloksen ja munien määrän. 
Sprite-törmäys; osuma lintuun 
Laser-lippu alkuarvoonsa 


Ohjelma: PING-JS 


I MH 

REM 

:+: * * :+: * * 

110 

REM 

+ :+: 

120 

REM 

* PINGUI INI * 

138 

REM 

+ * 

148 

K fc. il 

.f. .f. .f. -f- i- -4- -t* 4- -t- -4- *4- -4- 

158 

REM 


160 

R = RM 

LK -TIME) 

178 

f -1 C; 


18 0 

OPEN 

“ GRP: " AS 1 

i 9 0 

REM 

PINGUIINIRIUI 

2 £i £i 

"0 

/Cl 

n 

H* 

7 4 

218 

ON S 

PRITE 60SUB 2158 

228 

0 H I N T E K U fl L=5 8 S O S U B 


2440 






105 


230 

fin i n PifiM 


2 4 0 

REM ODOTTAA TI 

ETOA fi a P F ! a i 

2 5 9 

Kf-= IM KE V t- 


■— U 

IF K$=" 11 THEM 

1J S 1 J E: il 1 1 y a 

270 

REM PINGVIININ 

LIIKE 

2 8 £i 

i F K f = L- H R '$ ( 2 9 .) 

rl fi I” 5 L- ci 0 

2 y y 

IF K$=CHR$<28> 

H M D P C < 2 4 8 

3 0 0 

PUT SPRI TE 1 ,< 

PC,PR> ,1,1 


H h li p ‘ - = p IJ + H 


310 IF K$< >CHR$ < 32) THEN 480 

3 3 ö H! t n fl M P U M I H h Fi L H S L R — H o E E L L H 
330 IF FF=1 THEN 480 

340 SOUMD 6-15 

350 SOUMD 7,7 

r' ; 0 ’-j }_! M A i~| _ j_ A 

38ö SOUMD 18,16 

390 SOUMD 11,0 

480 SOUMD 12,16 

410 SOUMD 13,0 

4 2 0 R h M L I I K. U T T fl H. L fl E R - S a D E T Ia 

440 PUI SPRI TE 2, <PC,Z), 10,2 
450 HEKT Z 

4 6 0 P U T S P RIT E 2 , < 0, 2 B 9 > , , 2 
















106 
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i y 4 u 

SPR T TP rtN 


1 0 5 0 

I NTERUAL 0! 

N 

1060 

REM PINSUI 

I M I 3 H H! H K Iz 

1070 

PC=125 


1 080 

REM MUNIEN 

ASEMAT 

1 0 9 0 

r* U K .T — i f l_i 


1100 

EC(J)=J*40 


1110 

CIRCLECJ*4 

? 1 o o .•* j b j t 1 j j 7 . 

11 ii y 

PRINTJ * 4 0 

, i 8 E * 7 Ö 

1130 

NEXT J 


114 0 - 

REM MUNIEN 

LUKUMÄÄRÄ 

i 15 8 

E L = 6 


11 60 

SOSUB 2020 

ELMASILMUKKfl 

i i ? h 

K t M h'Aft U H J 

1180 

FOR J=1 10 

6 

1190 

Li!_! S u H 1 y H y 


1 2 0 0 

SOSUB 250 


lvi 0 

IF B C < = E C < 

WE> THEN 1260 

1220 

BC= 8 C —8 


1230 



124 S 

P U i c» P RIT E 

4, 03,209 > , , 4 

1250 

\0 I“s S J Ei £ 7j 0 


1 O f t jZj 

i h h‘ L* — b. L- 5 ". 

i,j E) THEN 1310 

1 V L-i 

0 {“• — 01 “ _i. o 


12 8 6 

S o — 4 


1290 

P1 J T S p* k 1 T E 

•Z* •» ( U ■: il U 7 ) i t -3 

1 300 

SOSUB 250 


1310 

IF BR >181 

THEN 1330 

1320 

BR=BR +8 


1330 

PUT SPRITE 

S S ,< B C ? BR), 1 

1340 

f- j E »"• i : “ ■“ ET fi 

i~i U -Z» U O cL ■-> 


13 5 0 

I f- B C = E C < U t > H N D B K > 181 

1440 



13 6 0 

SOUND 7,56 


1 “7 L~: 

P H V S! L. 4 U 

2 D 11 

1380 

PRESET < EC < 

UE >-8, 184 >, 15 

1390 

r K i n I tfl , CHRs-f213J+CHK5C 

14 0 0 

pH! O DPTTC 
t U s i r% i i i_ 

g S , L @, 2 0 - 9 ) 

i 4 1 © 

L L = E L — 1 


1420 

S 0 S U B 2 0 2 0 


14 3 0 

GOTO 1450 


■t A A j“j 

1 *+ *t O 

!.i iJ T U 1 ti 1 ö 



1 • _= ■■ !_.< •: 


145@ NEXT J 

1460 REM PELI LOPPUU 








108 


14 f 0 

SOUND 7,56 

1480 

PLAY “T210 i 

B A H F 

E D C " 

1498 

PRESETC50,1■ 

1 h H H 

cm AR 3 

1510 

P p T N T # 1 äI p 

1520 

FOR D E — 1 T 0 

1340 

COLUK 1,15 

15 5 0 

ij |_H 

15 6 0 

PRINT "SAIT 

1 

PR T NT 

1 shm 

IN P U ! " fl IK a 

1590 

IF iEN<NMt> 

LIIAN PITKÄ!" :P 

16 0 - 0 

REM PARHAAT 

1610 

Sf10>=SC 

1620 

N$<10>=NM$ 

1 Axh 

FOR J=10 TO 

1640 

IF S< JXS< J 

1659 

SUflP 8 <J> ? S 

1660 

SU AP N ■$ ( J ) , 

1670 

r-4 p y t T 

1680 

C L S 

1699 

P K I N T T H B K ö 

17 0 @ 

PRINT;PRINT 

i 7 i 

FOR M=1 TO 

1 720 

PRINT “ ";M 

1 7 3 0 

N E KT M 

174 Ei 

LOCATE 2,19 

1750 

PRINT "UUSI 

1760 

PRINT " LO 

1770 

PRINT 

1780 

REM ODOTTAA 

1790 

K $ = IH K E Y $ 

1 800 

IF K$="" TH 

1810 

BEEP 

1820 

IF K$< >"P" 

1830 

SC = ö 

1840 

SCREEN 2 

1858 

CL S 

1 8 6 0 

GOTO 820 

1870 

IF K $ < >"L" 

1880 

ij ij T u i 4 6 y 


F 21 y O 4 BRSh E E - 1 C O 3 B H G h E u C O 2 


H I “ 


i O i 


S A 


‘MIKÄ ON HI MESI ";NM* 

>15 THEH PRINT "NIMI OH 
RIH T l G 0 T 0 15 8 ö 
T U L 0 K S E T T fl U L U K K 0 H A 


STEP-1 
1 THEN 1670 
-i :> 

' T _ i 


S < M > I " " ; H $ < n > 


PAINA ■-L" 


‘HEH li 
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1 Q j.-1 

jr* 1- 

M LINTUJE 

N 

H S EM H 

1900 

Dr 

= INT< RND< 

•i 

> ¥ 2 8 > + 3 

1910 

BC 

- B f:+8 



1928 

BR 

= I NT<RNDf 

1 

J +17 ) + 2 

i 9 3 0 

BR 

= B R + 8 



194 0 

FF 

= 0 



^ :~i ET f-i 

1 ^ -_j K) 

UE 

= INT < RND < 

1 

> *61 + 1 

19 6 0 

G n 

SUB 250 



1970 

IF 

M < Li E > = 1 

T 

HEN 1950 

1980 

M C 

U E > = 1 



1990 

1F 

B L- •••■ o > i fo 

\ 

HEH SS=4 

2000 

RE 

TURN 




R y i y R c. rl T U l_ O S K U v H R U U D u!_ 1_ E 
RRlR11 F 1 REoET ( 0 ? R } 

2830 COLOR 5 

2848 PR I NT#1, SIRIN6$<32, 219 > 
2 0 5 8 P R E S E T < 3 0 , 9 > 

R 8 6 0 L- O L U R i 5 

2078 PR INT#1,"MUNIR:”;EL 

2 0 8 0 P R E S E T (. 150,0 ) , 15 

2090 PR INT#1,"TULOS:";SC 

2108 RETURN 

2110 FOR DE=1 TO 50 

2128 NEXT DE 

2130 RETURN 

214 ä R E M S P RIT E - K E S K E Y T Y S 

R 1 5 0 S F ! R I T E U F F 

216 8 K h M K a J H H D Y S 

2170 SOUND 8,0 

2188 SOUND 1,5 

2190 SOUND 2,0 

2200 S OUND 3,13 

2210 SOUND 4,255 

2220 SOUND 5,15 

22 3 8 S O U N D 6,3 0 
2240 SOUND 7,8 
2250 SOUND 8,16 
2260 SOUND 9,16 
2270 SOUND 10,16 
2280 SOUND 11,0 
2290 SOUND 12,5 

23 0 0 S OIJ N D 13,0 

2310 FOR DE=1 TO 30:NEXT DE 
2320 SOUND 12,56 
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TILIKIRJA 



Jos olet ajatellut ostaa levyaseman tai kirjoittimen lisätäksesi 
MSX-järjestelmääsi, saat tämän ohjelman avulla tietää, kes¬ 
tääkö pankkitilisi tätä. 

Ohjelman avulla on mahdollista pitää kaikki tilitietosi ajan ta¬ 
salla ja tallentaa ne nauhalle tai kirjoittaa paperille. 

Ohjelma on jaettu seitsemään osaan, jotka voidaan valita va¬ 
likon avulla seuraavasti: 
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1. Uusi tili - tätä käytetään tilin alkuarvojen antamiseen, 
kun ohjelmaa käytetään ensimmäisen kerran. Ohjelma 
kysyy tilin nimeä ja muita tietoja. Kaikissa toiminnoissa 
erät, kuten esimerkiksi kestotilaukset ja suoraveloituk¬ 
set, täytyy ilmoittaa omilla tilinumeroillaan. 

2. Tilin päivitys - tätä toimintoa käytetään lisätietojen anta¬ 
miseksi jo avattuun tiliin. 

3. Tilitietojen tulostus - kirjoittaa kaikki tilitiedot kuvaruu¬ 
tuun. Tulostuksen voi pysäyttää painamalla mitä ta¬ 
hansa näppäintä ja saada uudelleen päälle painamalla 
uudestaan jotain näppäintä. 

4. Tilitietojen kirjoitus - kirjoittaa kaikki tilitiedot kirjoitti¬ 
melle paperille. 

5. Saldo - antaa tämänhetkisen saldon kaikista tietoko¬ 
neessa olevista tileistä. 

6. Lataa nauhalta - lataa tilitiedot nauhalta. 

7. Tallenna nauhalle - tallentaa kaikki tilitiedot nauhalle. 
Käytä tätä toimintoa aina ennen kuin sammutat tietoko¬ 
neen! 

Ohjelmalla pystytään käsittelemään kussakin tiedostossa kol¬ 
mea eri tiliä, joissa kussakin voi olla 100 tilitapahtumaa. Näitä 
arvoja voidaan kuitenkin helposti suurentaa, tietokoneen 
muistin asettamissa rajoissa, muuttamalla taulukoiden tilava¬ 
rauksia rivillä 180 sekä muuttamalla vastaavasti rivejä 720, 
840, 1030, 1380, 1830, 2270 ja 2530. 

Tätä ohjelmaa voidaan helposti käyttää kaikessa kodin tilinpi¬ 
dossa ja jopa pienissä yrityksen tiliasioissa. 

Tietoja ohjelmasta 

Rivin n:o 

180 Tilitietojen taulukoiden tilivaraus 

190 'Print using’ -lausekkeen muotoilu 

230-340 Kirjoittaa valikon. 

350-390 Odottaa valintaa näppäimistöltä. 

410 Hyppää oikeaan ohjelmakohtaan. 

430-850 Uusi tili 
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450-480 

Kirjoittaa otsikot. 

510-530 

Etsii välilyönnin. 

540-560 

Välilyöntiä ei löytynyt. 

570-730 

Maksetut laskut 

740-840 

Saadut suoritukset 

870-1090 

Tilin päivitys 

960-980 

Etsii nimetyn tiedoston. 

990-1010 

N imeä ei löytynyt. 

1030-1050 

Etsii edellisten tapahtumien lopun. 

1110-1550 

Tilitietojen tulostus 

1130-1160 

Kirjoittaa otsikot. 

1170 

Asettaa alkuarvot. 

1180-1210 

Mikä tili? 

1230-1250 

Etsii nimetyn tiedoston. 

1260-1290 

N imeä ei löytynyt. 

1320 

Tarkistaa esillä olevan tilin. 

1330-1370 

Kirjoittaa otsikot. 

1390 

Tarkistaa tilitietojen lopun. 

1400-1410 

Tarkistaa maksusuoritusten antamisen. 

1430-1470 

Kirjoittaa tiedot. 

1480 

Viive lukemista varten 

1490 

Odottaa näppäimen painallusta. 

1570-1980 

Kirjoittaa tilitiedot paperille samassa muodossa 
kuin kuvaruutuunkin. 

2000-2120 

Kirjoittaa kaikkien tilien saldon. 

2140-2340 

Lataa tilitiedot nauhalta. 

2360-2600 

Tallentaa tilitiedot nauhalle. 

2460-2480 

Rutiini tallennusta varten 

2620-2630 

Viive 

2640-2690 

Tarkistaa näppäimen painalluksen. 

Ohjelma: TILI-JS 

100 REM -i 

•: :* 

110 REM 4 

: 

120 REM * 

* TILIKIRJO * 

130 REM * 

: + 


1 4 0 R h M * -+- ■¥ * + + * * *:+::+::+::+: * * 

150 REM 

168 CLEflR 2800 

178 REM TILflUARflUS TILI TAULUKO ILLE 
18 0. DIM N M $ < 3 > , fi M C 3 , 10 0 > , p $ < 3, 1 0 0 ) , Bfl < 3 > , 
CH<3,10 8 ) f BFC3,10 0 > 

190 Df-= "*####. ##*' 


8 MSX-pelikirja 
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61 0 

F' KIN i 

"Uudct tiii1 1 edo t.»,";PR iNl 

6 2 8 

INPUT 

“Tili n u iti ero"; C N < -J , K > 

638 

PRINT 


640 

INPUT 

* M -3 k S U. Ti S -3 3 3 -3 ' ? r $ % 3 ? K .- ! 

650 

P RIN T 


h 6 y 

INPUT 

11 f‘1 a r k k a hi : 6 . ä r 6 " ; H M *i. J , K ) 

6 7 8 

PRINT 


6 8 Hi 

IF AM f 

J,K)=8 THE N 7 4 0 

690 

fcs A (.. j > — 

BA < J >-AM < J, K > 

7 0 0 

BF<J,K 

>=BR<J > 

718 

K=K +1 


728 

IF K= 1 

00 THEN BEEP:PRINT "UAROITUi 

U i i m e i n te n 

1 I S ö. V S t ö. h ö. Ti 11 S d O —■ T ! 

- 

tai le nnä tiedot nauha 11 e ja ai oita 

L i tr 

O O S t ö K 

!! 

“7 'E; £3 

GOTO 6 

20 

74£i 

PRINT; 

PRINT 

750 

PRINT 

"Tu. I o t i edo t . . . “ : PR I NT : PR I NT 

7 6 8 

CN < J 7 K 

>=-l : PRINT 

770 

INPUT 

11 M i s tä saa tu " ; Pi f -J , K ) 

7 8 0 

PRINT 


7 3 y 

INPUT 

11 M a r k k a iti ö. ö. r d " : H M J, K ) 

8 0 0 

IF AM< 

J , K > = 6 THE N 210 

818 

B A < J > = 

Bfi < -T > + AM < J , K > 


82 0 B F < 3, K > = B H < J > 

838 K-K+l 

840 IF K — 100 THEN BEEP: PRINT "UftROITUS*. 

U i i lii e i n s n I isä. y s t ö. Ti ö. n ti e d o s t o o n 

— 18 1 Ib Ti Tl 3 tl 1 3 ö O tl Tl äUh-3 1 X 3 1 3 3 1 O i. tl 3 U. U. S 

i tiädu t o & 

858 GOTO 768 

860 REM TILIN PÄIUITYS 

S' 7 9 CL S 

8 >. 0 LOCRTE 11,3 

890 PRINT " TILIKIRJA " 

9 90 L 0 C fi T E 1 0,5 
9 1 0 P R I H T "Tili n p 6 . i v i t y s ” 

920 PRINT;PRINT 

9 3 0 IN P U T " H 31 u. t u n tilin n i m i " ; T $ 

940 PRINT 

958 REM ETSII URLITUH TIEDOSTON 
968 FOR M=1 TO 3 
97Ö IF Tt=NM$<M> THEN 
1030 


j=m: m 


N t K T M; S U f u 




i-* '-.O 
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98W HEKT M 

99 PR I NT "Ti 1 i ä n i me I tä " ; Tt -; " ei 1 Bydy . " 

y M H H u 8 U H 6 O 

1010 GOTO 210 


1 @28 

REM ETSII UII 

MEISEN TIETUEEN 

1030 

FOR M-1 TO 100 

10 4 0 

IF Hf1<J,M)=0 

THEN K=M:M=lö0 

18 5 8 

N E KT M 


1 8 6 8 

PRINTlPRINT 


i 8 7 8 

PRINT "Uudet 

tilitiedot,,," 

1080 

P RIN T 


1 pi M H 

GOTO 620 


1 1 0 0 

REM TILITIETO 

JEN TULOSTUS 

1110 

CL S 


i i 2@ 

LOCflTE 11,3 


1130 

PRINT " TILI K 

IRJA " 

1140 

LOCflTE 6,5 


1 150 

PRINT "Tilitietojen tulostus" 

1160 

PRINT:PRINT 


1170 

7—1 = k’ == 1 * p — 


1180 

INPUT "Tilin 

nimi tai KAIKKI " : Tf- 

1190 

PRINT:PRINT 


i 2 8 0 

REM OTTAA HUOMIOON KAIKKI TILIT 

1210 

II- |$=" KAIKKI 

>■ OR T$= "Kaikki" UK 

T$ = “ 

kaikki" THEN 

F=1:GOTO 1310 

1220 

REM ETSII UAL 

ITUH TIEDOSTON 

1230 

FOR M=1 TO 3 


1240 

IF T$=NM$<M> 

THEN J=M:M=3:HEKT M:GOTO 

1 330 



1250 

N E KT M 


1260 

BEEP 


1270 

PRINT "Tiliä 

n i iTi b 1 tö. K J T$ ‘ !1 s i 1 öydy = sl 

1280 

G OSU E: 2620 


129 0 

G0TO 210 


13 0 8 

REM TULUS I AA 

KOLMEN TILIN TIEDOT 

1310 

F U R J — 1 T 0 3 


1320 

IF AM C J, 1)=0 

THEN 1530 

133 @ 

PRINT "Tilin 

nimi: 

1340 

PRINT:PRINT 


1350 

PRINT "Tilinu 

m ero.":TAB C16 >; "M a ks un 

S B B j 

— li 

=3 


1360 

PRINT " Mark 

k a m ö. ä r ä " : TA E! (. 1B.): " s a i d o " 

1370 

PRINT 



1380 h 0 R K = 1 T 0 10 0 
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1396 

14 0 0 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 

15 0 0 
1510 
152 0 
1530 
1540 


IF HM 

< J, K > =0 

T 

i 

HE N 

K 

=100:GOTO 

IF CN 

< T r . K i < > 

— i 

THE 

N 

1430 

PRINT 

" Tu 1 o t 

II a 




SO TO 

1440 





PRINT 

C H < J , K 

) “ 




PRINT 

T HB ( 16 

> ; 

Pt c J 

3 

K > 

PR I fiT 

U 8 I N S 

Df- 

; h M < 

J 

, K ’>: 

PRINT 

TfiB e 17 

'i “ 




F' RIN T 

USING 

D $ 

: BF < 

J 

, K > 

F 0 R D 

E=1 TO 

1 00 :NE 

X 

T DE 

SO SUB 

2650 





HE KT 

K 





PRINT 

;PRINT 





IF F< 

>1 THEN 

l 

5 4 0 



N fc. K T 

J 





S 0 S U E- 

2628 - SOS 

UB 2 

6 

20 


1550 SO TO £10 

1560 REM TILITIETOJEN KIRJOITUS 


‘ 0 


1580 LOCAiE 11,3 

1590 PRINT " TILIKIRJA " 

1 6 O 0 L O L H T E €•, 5 

1610 PR INT "Tilitieto ien kirj oitus" 

1620 PRINT:PRINT 
1630 J=1:K=i:F=0 

1640 I N F'UT "Tili n n i m i tai Kfl I KK I " ; T$ 

1650 PRINT:PRINT 

1660 IF T$="KAIKKI" OR Tf="Kaikki " OR 
T$="kaikki" THEN F=l:GOTO 1740 
1670 FOR M=1 TO 3 

16 8 O IF T f-=N M f- < M > THE N J = M: M=3: H E H T M: S 0 T O 
1760 


1690 HEKT M 
1700 BEEP 

1710 PRINT "Tilid nime 1tä ":T$; " ei 1yö dy ." 

1720 SOSUB 2620 

1730 GOTO 210 

1740 FOR J=1 TO 3 

1750 IF AfKJ,l)=8 THEN 1970 

17 6 a L PRINT "Tili n n i m i : " ; H M $ f. J > 

1770 LPRINT:LPRINT 
17 8 8 LPRINT "Tili nume r o.“ : 

179£i LF‘R I NT TAB (19); " Ma ksun saa j a " : 

1800 LPRI NT TfiB<38 >:"Markkamddrd": 
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810 

LPRiri 

T TflB 

c 6 2 > ; "Saldo" 


828 

LPRIN 

T 



8 3 8 

F 0 R K 

= 1 TO 

1 0 0 


846 

IF H H 

< -J, K > 

= W THE N K=100:G 

3 T 0 

8 5 : 8 

IF C H 

< 3, K > 

0-1 THEN 1880 



L R w T H 




öb!Ö 

i " T u 

1 o t" ; 


H 7 8 

GOTO 

1890 



888 

LPRINT CM< 

J , K > ; 


H ! -f L-1 

! pP T N 

T TflB 

<18>; p$ <j,K); 


9 0 8 

IF CN 

< J, K > 

=-i THEN LPRINT 

TflB 

L_ o iz_ 

* rKih 

T TflB 

i '~l f- t 'i ~ 


910 

L F* R i rl 

T USI 

NS Dt; flM< J,K>; 



L P RIH 

T TflB 

< 60 >; 


9 3 0 

I PPTN 

T i t = —j 1 

NS D$ l BF C J,K> 


44ö 

NEXT 

K 



950 

LPRIN 

t: lpr 

IH T 


9 3 0 

IF F< 

> 1 F H E N 19 8 5 


9 7 8 

PiLX i 

3 



988 

r n t n 

210 



990 

K E M ! 

ULOST 

fifi SALDON 


Ci Ci Ci 

C L o 




8 I 0 

LOCfiT 

fc. lii 




P K i h I 

" 1 i 

L. i r : -. i K -J H " 


h :h 

LDCFiTE 9,5 



848 

PRINT 

li J-.j. , 

11 >• r : . 

y i ti e ti sai d o " 


0 5 0 

f: i”: T r. s *T 

r K ± f 1 s 

: pr in 

T 


060 

FOR J 

— 1 T U 

O 


0 7 0 

P R IH T 

N M f- < 

T "-j s il s i! i 


080 

PRINT 

US IN 

S D$-;BfKJ> 


890 

P RIN T 




100 

r-i CT V T 

3 t "s s 

"f 



1 1 0 

G 0 S U B 

26 2 0 

:SOSUB 2620 


1 V 0 

GOTO 

4 1 0 



1 O jT-i 

REM L 

flTflfl 

TIEDOS1 ON NAUHALTA 

148 

CL 8 




150 

LOCfiT 

E 11, 



1 €«0 

P P T N T 

" TI 

LIKI R 3 A " 


1 ~1 \Ä 

-L 5 U 

LO CAT 

E 9,5 



180 

PRINT 

"Lat 

au s nauhaita " 


1 Q Ci 

r*: — I T r.s T* 

f" T-. i ! 1 ! 

I PR IN 

T 


2 0 0 

LINE 

INPUT 

" P a i n a e n t e r , 

kun 

O Ti 5 -. 

-3 1 Hi 1 1 

Ti -3 n l 

Hus 


410 

PRINT 

: pr IH 

T 


2 2 0 

p p t h j 

"Lat 

aus. » . 



1946 


4 6j 


k a t; 


tti 
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2230 

OPEN “KRS:TILI" FOR INPUT 

HS 1 

2246 

F U R .J — 1 1 U 3 


2258 

INPUT#1,NM$<J> 


2268 

INPUT# 1, B FKJ > 


2270 

P U R K — 1 T 0 10 0 


cL uL O 8 

INPUT#!,CH(J,K) 


2290 

INPUT#1,P*<J,K> 


2388 

INPUT#1,fl M C J,K > 


2 3 i 8 

INPUT#1, B F < J , K > 


2 3 2 8 

NEXT K,J 


2338 

CLOSE 


2340 

GOTO 210 


2350 

REM TIEDOSTON TALLEHUS NR 

UHALLE 

2360 

CL S 


2370 

LQCflTE 11,3 


2380 

P P T NT " TT! T k TPTfl !1 


2390 

LOCRTE 7,5 


240.0 

F 1 R IH T "Talle n n u s n a u hai le 

t! 

2410 

PRINT:PRINT 


2420 

LINE INPUT "Paina enter, 


O Tl 1 

- ! a i m 11 n a« " ; N U f- 


2430 

PRINT:PRINT 


2446 

PRIH! "Talle n n us. .. " 


2458 

REM ODOTTAA TALLENNUKSEN 

ALKUA 

2460 

MOTOR ON 


2470 

G 0 S U E' 2 6* 2 W: G 0 S U & 2 6* 2 0 


2480 

MOTOR OFF 


2490 

OPEN "KAS:TILI" FOR OUTPU 

T AS 1 

25 0 0 

F u R J — 1 T 0 3 


251 0 

PRINT#! , N M $ < J 


2520 

F'R I NT# 1, BA c J > 


2530 

FOR K=1 TO 100 


2540 

PRINT#!,CN < J,K > 


2550 

PRINT#!,P $( J, K) 


25 6 0 

PR I NT#1,AM (J , K} 


2570 

PRINT#!,BFCJ,K> 


2580 

NEXT K,J 


2590 

ci n s e 


2 6 0 0 

G0TO 210 


2618 

REM UIIUE 


26 2 8 

FOR DE=1 TO 2500:NEXT DE 


2 638 

RETURN 


264 0 

REM ODOTTAA NÄPPÄIMEN PAI 

NALLUSTA 

26*50 

Z$=INKEY $ 
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i~« 6 ö 

n 

N 

Ll 

THEN 


6 7 0 

Z $ = I N K E Y; 

f 


6 8 8 

T F " 

THEN 

2670 

6 9 0 

E EIU E H 





PIKARI 



Ajaudut kohtia Kalmarin temppelin raunioita. Raunioiden ta¬ 
kana kohoaa suunnattoman arvokas kultainen pikari, jota 
vartioi ihmissyöjähirviö nimeltä Gork, joka on juuri nyt kovin 
nälkäinen! 


Näihinkin raunioihin, kuten kaikkiin hyviin raunioihin vaikuttaa 
taikalumous, joka kuljettaa sinut ulos raunioista törmätessäsi 
raunion seiniin. 

Yö on pimeä ja myrskyinen. Vain satunnaiset salamanväläh- 
dykset opastavat sinua, joten tarvitset hyvän muistin ja no¬ 
peat refleksit saadaksesi pikarin. 
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Voit liikkua kohdistimen ohjausnäppäimillä. 

Tietoja ohjelmasta 


Rivin n:o 
170-180 

210-230 

250-270 

290-340 

360-280 

420-450 

470-500 

550-700 

720-900 

920-990 

1000-1040 

1080-1220 

1240-1290 

1300-1340 

1350-1380 

1400-1430 


Asettaa äänen tempon ja nuottien keston sekä 
varaa tilaa kuvaruututaulukolle. 

Odottaa tietoa näppäimistöltä. 

Liike ylös 

Tarkistaa törmäyksen. 

Liike alas 
Liike oikealle 
Liike vasemmalle 
Alkuarvot ja vaikeusaste 
Määrittelee spritet. 

Piirtää rauniot. 

Sijoittaa pikarin. 

Liikuttaa hirviötä. 

Salamanvälähdykset 

Onnistuit. 

Epäonnistuit. 

Uusi peli? 


Ohjelma: PIKA-JS 


: f• ’■ : f- ‘-H *t : -T- 

:t: :* 




1 Q pij 




‘ K ■ i 


i P1 h : H L- i 
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2 9 0 

1F M 

c p k 7 p C > = 0 T H E N 5 i 0 


O jT-j (7-i 

7 p jvj 

k, P’ R , F 5 L- ) — o THE li 1 3 0 ö 


310 

PLAY 

?i n 4 f: 


1 -• H 

r K •“ ii 

3 


338 

PUI 

SPR I TE 1 ? (<PC--1)*8, 

— 

340 

Q 0 T 0 

5 3 0 


3 5 0 

R E M 

RL RS 


3 6 0 

IF K 

Y< >31 THEM 420 


378 

P R = P 

R +1 


380 

IF P 

R>24 THEN PR=24 


3 9 0 

REM 

T H R KI S T fl H U U D E L L E E N 


4 *3 0 

G 0 T 0 

2 9 0 


419 

REM 

OIKEALLE 


4 2 y 

IF K 



439 

P f; = P 

C + l 

— 

440 

7 ET p 

031 THEN PC = 31 


450 

G 01C 

29Ö 

. — 

4 A @ 

REM 

U H b t. M n ALLE 


470 

I h H 

V < > 3 9 1 H h N 51 ö 

-— 

480 

PC = P 

C- 1 


4 9 0 

7 ET sZ 

i • ; 

C<3 THEN PC = 3 


5 8 8 

G 0 T L 

2 9 0 


510 

PUI 

SPRITE 1 <CPC-i 

■— 

520 

PL RY 

”05 D " 


530 RETURN 

5 4 ö K h Tl H L K U H b E T U K. b t T 



5b£i 

K = K H D i 

-TIME) 



— 

Tj r~: M 

SCREEH 

Ei 




570 

COLOR 

1,15 



j— 

“ O :7-j 

C L S 





5 9 0 

L U U n T E 

12,11 



■— 

6 Ei Ei 

P P T H T 

n rj r s.-- 

r I K 

H R I 

« 


r-. 1 L-i 

p p —— 2 3 




— 

rS 2 0 

P C = 16 





830 

}! f\. —• *-f- 
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"7 -1; Ci 

p .±- _ a u 



740 

FOR J 

=0 jo 7 


7 ~s M 

K h H D 

pj -± 

£_• "5*' 


7 6 0 

P -f = P 3- 

s {*"• 3 i .-r- .** 5 | “t | :: -s | i ii i .-r* *•. 

t L- n K -4 U n L. ■>*: ri ~ l- s ,- s 


770 

r-.> il y : 

T 


"? Cj .C-j 

C; p O 7 “f 

E $■ < K > - P $ 


"7 Q p| 

K! P* V 7 

K 


8 8 0 

D H T fi 

30,44,38,7f:. RH, 38,44. f: 


810 

D H T fl 

41,41,41, h , IL-, öo , 88 , I 

IJ 

820 

DRTfi 

X | , , — j |— ^ §-*, ^ j~ _ i i i H : : i t E! , .“! 

p 

830 

F U K J 

~ i t n h 


8 4 8 

H h. H D 

[> -t. 


858 

E1 $ = E 

i ■$+u h R $ < U R l < " & h ,ä + D t ;< > 


860 

REfiD 

D $ 


8 i 8 

E 8 -t- — E 

2 $ •+■ f: H R f- < U fl L <: " & H " + D $ > > 


880 

HE 8 ! 

“f 


890 

DAT H 

1 C ? 8 8 ? 8 E 3 7 L" n 8 h 7 !" fa , F" F 3 h 

F 

9 0 0 

DATA 

77,EE,07,E0,7E,7E,3C,3 

f: 


9 F M F 

H U N10 T 


'± 2-0 

l~ 1 I VK .1 

-1 TO 33 


930 

h U R K 

-3 TO 32 


940 

I F R H 

D < i >< . 9-S K 4 0 THE N 9 9 0 


9 5 0 

IF J~ 

8 H H D K =18 T H E H 9 9 8 


960 

M C J , K 

= I 


9 7 H 

i n r h T 

E K-3,J-l:C0LOR 1 


9 8 0 

PRINT 

CHRf- <219 > ; 


9 9 0 

N E K T 

K, J 



1000 PUI SPR I TE £, < i£0,8),11,2 
1010 ii <2,16 > - 3 
1020 LOCfiTE 13,2:COLOR 15 
1 83 0 P R I M T C H R f- < 3 2 ) 

1 0 4 0 fi < 3 , 1 6 > = 0 

1050 PUI SPRITE 1, <<PC- 1 > ; t-S, <PR- 1 > +8>,4,1 


1 0 6 0 

GOTO 1280 


1 Ei 7 Ei 

S OSU E: 210 


10 8 0 

IF RND<1> 

> , ö 3 + S K 18 0 THE N 124 0 

1090 

IF M C < = P C 

THEN 1120 

1 1 00 

MC=MC—1 


1 1 1 0 

SPR I TEf <. 3 

> = E1$ 

1 120 

IF MR<PR 

THEN 1140 

1 130 

MR=MR-1 


1 1 4 0 

IF MR>=PR 

THEN 1160 

115 0 

MR=MR+1 


1160 

IF MC>=PC 

THEN 1190 
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1 1 0 

S P Rl iti- < 3 > = E 2 f- 


1180 

MC=MC+1 


1196 

P U T S P R I T E 3, < < M C 

-1>*8,CMR-l> + 8 

~i O M M 

PLHY "03D” 


1210 

REM JÄIT KUHNI 


1220 

IF MR=PR HMD MC=P 

C THE H 13 5 0 

1230 



1249 

I p p r-4 D < IX. 9 5 4- S K ■ •' 

2 iö THEN 1 u78 

1258 

f: 0 L 0 R 1,15,15 


1260 

FOR DE=1 TO 50 


1270 

NEKT DE 


1280 

COLOR 1,1,1 


129 0 

GOTO 1070 


1 300 

P L H Y " T 2 4 m ; n 3 f: D E F 

G H H 0 4 C D t ‘r G H ti U 5 

131 0 

COLOR 1,15,15 


13 2 0 



1330 

r> o t kj t u o T L--‘ Ci D T «“ M 

r K i f 1 I r i K n k i U 11 

SINUN!!“ 

1340 

y ij T n 13 y 0 


1350 

F* L. H Y F ci 4 0 ? U -J E* H 0 F 

E D L- U kiBfltiFEDU 1 

X o ö 0 

COLOR 1,15,15 


1370 

LOCflTE 4,11 


1380 

PRINT "HIRVIÖ SÖI 

SINUT ! " 

1390 

L UCH T E 0,24 


1408 

INPUT "UUSI PELI? 

( fr F f, " ; Q -f 

1410 

IF LEFT$<0$,1U = “K 

" OR LEFT $ < Qf-, 

THEH KUH 


1429 

SCREEN 9 


1430 

END 
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PELASTUS 



Oletko koskaan kuvitellut olevasi haarniskapukuinen ritari? 
Nyt sinulla on siihen tilaisuus! Ilkeä noita on vanginnut kau¬ 
niin neidon linnaansa, ja sinä olet neidon ainoa toive päästä 
vapauteen. 

Noidan linna on kuvaruudun oikeassa yläkulmassa. Suorit- 
taaksesi pelastustehtävän sinun täytyy kulkea linnaan lähtö¬ 
asemastasi, vasemmasta alakulmasta. Kuulostaa helpolta, 
mutta sitä se ei ole! Noita on äkeissään, koska olet tuppautu¬ 
nut hänen suunnitelmiensa tielle, ja heittelee valliltaan sinua 
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isoilla, vihreillä kivilohkareilla. Nämä taikalohkareet tappavat 
sinut, jos törmäät niihin tai jäät niiden alle. 

Voit liikkua kohdistimen ohjausnäppäimillä. 

Tietoja ohjelmasta 


Rivin n:o 

200-250 

260-320 

400-470 

490-510 

530-610 

620-720 

730-740 

780-950 

880-900 

970-1090 

1100-1140 

1150-1230 

1260-1280 

1290-1360 

1380-1520 

1540-1810 

1820-1840 

1850-1880 

1890-1960 


Tulostaa otsikkosivun. 

Kysyy vaikeusastetta. 

Määrittelee ritari- ja linna-spritet. 
DATA-tiedot spriteja varten 
Lohkareiden alkuasema 
Asettaa loppukuvaruudun. 

Alkuarvot ritarille 
Liikuttaa ritaria. 

Tarkistaa törmäyksen tai allejäännin. 
Lohkareen heitto 
Pääohjelmasilmukka 
Onnistuit. 

Tyhjentää näppäinpuskurin. 

Uusi peli? 

Törmäsit taikalohkareeseen. 

Jäit lohkareen alle. 

Viive 

Soittaa melodian. 

Kuvaruudun tyhjennys ja pelin lopetus 


Ohjelma: PELA-JS 

1 y 0 R E M * * * * * + * * * * * * 

110 REM * : + : 

120 REM * PELASTUS : + : 

130 REM * * 

1 4 8 R E M * * * *■ * * * +• * * * 

113 0 k ti rt 

1fe 0 D E F IM T A — 2 
1 0 h C Rh h H 0 
130 KEY OFF 

190 REM OTSIKKO JA UAIKEUSASTE 
200 COLOR 13,1 
210 CLS 

230 LOCATE 11,9 

238 TRI NT "F ELÄ S T U S" 



r 















130 






























( 



i i 0 0 

FOR L=1 TO 10 


1110 

H 0 S U B f o M 


112 0 

H EXT L 


1138 



•f -i .-5 “j 

1 i -f Ö 

G U T U 11 ö 0 

l 

115 0 

SOSUB 1850 


1169 

R E M 0 M NIS T UIT 


117 0 

r R EoL ! o 5 ? o o 


1 1 Kfj 

COLOR 1 


1190 

PR I HI# 1, STRI H S f- < 10,219 > 


1 2 0 0 

PRESET <85,88!) 


1210 

COLOR 15 


1220 

PR T NT# 1 - " H N H T 8 Ji SI T l i! 


1 230 

SOSUB 1820 


1240 

PRESET< 1 6, j k4') 


1250 

COLOR 1 


1 260 

h UK 2 L = I 1 D 2H 

p 

1270 

fif = IHKEYf 


1280 

NEXT Z 


12 9 0 



1 300 

HRFsET v. 1 A 134 J 


1310 

COLOR 15 


1 820 

F : R IN T # 1, "UUSI PELIT < K h ) " 

p 

1 • _= |..-f 

fi$ = IHKEY$ 


1340 

IF H $ —"" THEN 1330 

p 

1350 

I F fl ± = " F " n p H ■$ = ” " THEN RH N 


1 360 

GOTO 1890 

£ 

1370 

K fc. M T o K M a Y o KIU E! H L. U H K H h! E E! o L. E H 


1 3 8 0 

F0 R J-l T O 10 


1390 



1400 

F U R D E ~ 1 T U J 0 1 H E X T D t 


1410 

P UT S P RITE 1, < C M * 8 , RM * 8 > ,1,4 


1420 

F 0 R DE = 1 T 0 30 1 NEXT DE 


1430 

NEXT J 


1440 

p R ESET < 7 0 ,8 8 > 


145 0 

f: 0 l 0 R 1 


14 o 0 

PRINT#!,STRING4<15,219> 


I 4 0 

P R ESET 7 ö , 8 8 ) 


1480 

C 0 L 0 R 15 

f— 

149 0 

PRINT#!,"T ö R M Ä S I T" 


1 500 

p L H Y " 0 5 S F E D C 0 4 B H S F E D 0 3 B fl S F E D C 

/ 

1510 

SOSUB 1820 


15 2 0 

G 0 T 0 124 0 

p 

1530 

K b. M K 1 U h. H L U H K H R E U o U U 
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MUUKALAISRYNNÄKKÖ 



Maailman pelastaminen on sinun käsissäsi. Joudut taisteluun 
loppumatonta muukalaisjoukkiota vastaan, joka pudottelee 
pommeja päällesi. 

Kuinka peliä pelataan 

Voit liikuttaa laser-alustasi vasemmalle ja oikealle käyttämällä 
näppäimiä O ja P. Tulitus tapahtuu välilyöntinäppäimellä. Jos 
vihollinen pääsee laskeutumaan aluksesi päälle tai siihen 
osuu pommi, menetät yhden kolmesta aluksestasi. Kun 
kaikki alukset on menetetty, on peli lopussa. Pelissä on 
kolme vaikeusastetta, jotka vaikuttavat laser-aseesi tulitusno- 


10 MSX-pelikirja 
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peuteen. Ole varovainen, sillä kolmas vaikeusaste on todella 
vaikea! 


Ohjelmointikikkoja 

Ohjelma kostuu kolmesta aliohjelmasta, joita kutsutaan pe¬ 
räkkäin. Ohjelma on näin saatu melko nopeaksi tarvitsematta 
turvautua konekieleen. On hämmästyttävää miten paljon tie¬ 
tokone voi tehdä pelkästään BASICin avulla. 

Tietoja ohjelmasta 


Rivin n:o 
190 

Äänen tempon ja nuotin keston asetus 

220-240 

Otsikko 

250-270 

Vaikeusaste 

300-460 

Liikuttaa alustasi ja tulittaa. 

480-530 

Liikuttaa muukalaisia alaspäin. 

550-700 

Liikuttaa pommeja. 

720-790 

Pääohjelma, joka kutsuu aliohjelmia. 

850-930 

Määrittelee tarvittavat spritet. 

950-980 

DATA-tiedot spriteja varten 

1040-1240 

Piirtää pelin taustan. 

1250-1260 

Aliohjelma laserin lataamiseksi 

1280-1620 

Sprite-törmäys 

1290-1440 

Muukalaiset osuivat. 

1450-1600 

Sinä osuit. 

1640-1690 

Alukset tuhottu 

1720-1870 

Laskee ja tulostaa parhaat tulokset. 

1880-2030 

Uusi peli? 

2050-2490 

Ääniefektit laser-aseelle, räjähdykselle ja pom¬ 
min putoamiselle 


Ohjelma: MURY-JS 

100 REM 

1 1 0 R E M 


Y: * 

128 REM 

t - M U U K Fi L fi IS R Y N H Ä K K ö * 

i 3 y f? p f-i 

•f: 

1 4 y k ti rl 

+: :4: :4: :4: :4: :-k ;i : :-f::4: : 4 -: * 

i O o K L n 

160 DEFI 

NT fl-L,N-Y 

179 KEY 

OF F 

18 0 R h M 

RYTMI JR NUOTIN KESTO 

19 0 F' L fi Y 

"T240 L64“ 
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200 SCREEN 0 
210 COLOR 13,1 
228 CLS 

230 LOCATE 8,7 

2 4 0 P RIN T " M U U K H L fl IS R Y N H Ä K K ö" 

2 5 0 L O C fl T E ö, 18 

260 INPUT "URIKEUSASTE <1 - 3)";SK 
270 ON INTERUHL=SK+28 GOSUB 1258 
280 GOTO 808 

290 REM ALUKSEN LIIKUTTAMINEN 
300 KT=IN K E Y $ 

310 IF SK>2 THEN GOSUB 550 

320 IF SK>1 THEN GOSUB 550 

330 IF K $ ="" THEN 450 

340 IF K $ ="O" AND B>1 THEN B = B-1 

350 IF K $ ="P" AND EK 31 THEN B = B+1 

368 IF K $< >" " THEN 450 

370 IF FF=1 THEN 450 

3 8 0 G O S U B 2 0 5 Ei 

390 IF HR>22 THEN 458 

400 FOR 3=20 TO AR-1 STEP -1 


410 

PUT SPR I TE 

4, 

C B+8,3+ 

420 

NE KT J 



430 

PUT SPR ITE 

4, 

e; Ei, 2 Ei 9 > 

440 

FF= 1 



450 

PUT SPR I TE 

1 , 

e B+8,18 

460 

RETURN 




470 REM MUUKALAISTEN LIIKE 
480 HR = AR +1 
490 IF AR<23 THEN 520 
580 AR=1 

510 HC=I NT e RHDC1>+29> + 1 

520 PUT SPR ITE 2,CAC+ 8 ,AR+ 8 >,12,2 

530 RETURN 

540 REM POMMIEN LIIKE 
550 MR=MR+1 
568 MC=MC+2C 

578 IF MC>31 OR MC<1 THEN 590 
580 IF MR<24 THEN 690 
598 PUT SPRI TE 3,<0,208>,,3 
600 IF RND<1> >.5 THEN 700 
610 IF AR>18 OR AR<1 THEN 700 
6 2 ti M R = A R + 2 
630 MC=AC 
640 2 C =0 
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o 3 U 

Ir RHD 

Q)>.5 THEN 680 

660 

i. F H R < 

3 THEN 680 

676 

£LL = e 2 O 

+ S G N f. B-fl L- ) 

680 

60SUB 

2420 

j—, ! -4 |.-"f 

PUT SP 

R1 T E 3 •* M L- 8 t M R 8 .•* 7 5 7 8 

700 

RETURN 


710 

R E M h’ a a U H J E L rl A SIL F i U K K A 

720 

G 0 S U B 

3 0 0 

730 

G 0 S U B 

5 5 0 

740 

bs U 8 U E' 

300 

! -■_ 1 

GOSUB 

480 

7 A H 

8 U 8 U E* 

300 

770 

G U S U E' 

550 

7 8 0 

GOSUB 

388 

790 

GOTO 7 

28 

8 O 0 

R=RND< 

-TIME) 

810 

SCREEN 

2, 1 

8 2 0 

OPEN " 

GRP:“ AS 1 

O O p| 

0 N S P EIT E G 0 S U B 12 8 0 


840 REM SPRITE-MÄÄRITTELY 


850 

REST 

UR 

r* 













8 6 8 

j~ ! J h? 

K = 

1 

i 0 

4 











8 7 0 

p$= *• 

H 














880 

FOR 

J = 

0 

TO 

!* 











8 9 Ei 

R L H D 

D 

■T. 













988 

P$ = P 

$+ 

e 

H R $ ( 

UAL 

( 


H 

H 

+ D 

$> 

) 




910 

H E KT 

T 

-J 














9 2 9 

SPR I 

TE 

$ 

< K > = 

P$- 











930 

NEXT 

K 














940 

REM 

SP 

R 

ITE 

DATA 










950 

DATA 

■i 

i. 

O 

, 18 , 

FF, 

r~ 

r 

F, 

f~ 

r 

F 

, F 

ST 

i n 

F 

p , 

F 

r~ 

f 

9 8 8 

DAT A 

e 

o 

, FF, 

DB, 

F 

F, 

e 

O 

? B 

D, 

1 

8 ? 

6 

6 

970 

DATA 

0 

0 

, 00, 

0 0 , 

i 

-L 

8, 

1 

8 

1 

? 

O 7 

0 

0 , 

Ei 

Ei 

980 

DAT A 

0 

8 

, 08 , 

8 8 7 

0 

O 

0 

o 

, 0 

8 , 

0 

8 7 

0 

o 

990 

R E M 

AL 

K 

U ARI 

OT 












1009 B=15:BS=3 

1010 H R =1 

1020 RC=INTiRHDC1> +29) +1 
1038 REM TAUSTAN PIIRTO 
1040 COLOR 15,1,1 
1050 CLS 


1060 CIRCLE <90,22 >,13,11,,, 1.3 
1870 PfiI NT <90, 22 > , 11 
1080 CIRCLE <90,22 ) , 16,6,5.5,3.85, . 


i 
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i 099 

C i RULE < 90,23), l b, 13,5 

Fs,„ h Fi , B 1 

1 1 0 0 

UIRuLE (.19ö , 33 J , 6,6, , , 

1 .3 

1110 

p fiIHI <190,3 3 ),6 


112 @ 

FOR 3=1 TO 16 


1130 

R1 = IN T < R H D < 1 ) * 2 4 0 ) + 10 


1140 

R 2 = IN T < R N D < 1 > * 15 0 ) +1 ö 


1150 

CIRCLE < R1,R 2 >,1,15,,, 

1 .3 

116 6 

HE KT 3 


1170 

CIRCLE <50,70), 16,9,,,i 

n O 

1180 

P R IH T < 5 0 ,7 ti ) , 9 


119 0 

PRESET<30,0) 


1 200 

L- U !_ U R 15 


1210 

PRIHTttl,"ALUKSET: 3 

TULOS; 0" 

1220 

SPR I TE ON 


1230 

INTERURL ON 


1240 

G 0 T 0 7 2 0 


1250 

F F = 0 


1260 

RETURH 


1270 

R E M S P RIT E - T ö R M Ä Y S 


1280 

SPRITE OFF 


12 9 6 

IF RR=23 OR MR>22 THEN 

1450 

1 300 

IF J<RR-2 OR J>RR + 2 THEN 1610 

1310 

GOoUE; 2220 


1320 

SC=SC+1 0 


1330 

FOR 3=2 TO 4 


1340 

PUT SPRITE 3,<0,209),, 

3 

1350 

NEXT J 


1360 

PRESET<190,0 ) 


1370 

L- 0 L 0 R 1 


1380 

PR I NT# 1, STRIN S f- <5,219 ) 


1390 

COLOR 15 


1 4 0 0 

PRESET <190,0) 


1410 

PR I NT #1,SC 


1420 

H R = 2 4 


1430 

M R = 2 4 


1440 

GOTO 1610 


1450 

BS=BS-1 


1460 

GOSUB 2220 


1470 

PUT SPRITE 1,<0,209),, 

1 

1480 

RR=i 


1490 

B = 15 


1500 

RC=INT < RND<1)+29) +1 


1510 

PUT SPRITE 3,<0,209) 


1520 

PUT SPRITE 2,<0,209) 
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1530 

P R E S E T k 9 0 

, 0 > 


15 4 0 

C 0 L 0 R 1 



15 5 S 

PR INT# 1, SIR I NSf-<4,2 

1 9 > 

15 6 0 

COLOR 15 



1570 

P R E 8 E ' < 9 W , 

0 > 


1586 

PR I UT#1,BS 



15 9 8 

IF BS=0 TH 

EN 1630 


i 0 y y 

FOR DE=1 T 

0 500:NEX 

T DE 

1610 

SPR I TE OH 



1620 

RETURH 



1630 

REM PELIN 

LOPPU 


1040 

SOUND 7,56 



1650 

PLAY "05BP. 

F EDC04BRFEDC03BRF EDO-" 

1 6 b 0 

PRESET<5@, 

9 4 ) 


1670 

COLOR 4 



1680 

PR I NT#1, " 

PELI 

0 H I H 

Q li 

FOR DE=1 T 

0 2500:NE 

XT DE 

1 7 0 0 

SCREEN 0 



1710 

COLOR 15,1 



1729 

PRINT "SRI 

t": se:"pi 

STETT ä“:PRINT 

1730 

l N p i j J H p-j l g 

Ä ON H IME 

SI “ : N M f- 

1740 

IF LENCNH$ 

>>15 THEN 

PRINT "NIMI 

LI li 

RH PITKÄ ! " : 

PRINT:GOT 

0 1730 

1750 

REM PRKHHH 

T TULOKSE 

T TRULUKKONR 

1760 

8 < 1 d j — S C 



1770 

n $ C 10 > = fl M $ 



17 S 0 

F 0 K J = 10 T 0 2 S T E F' - 

1 

]. 7 9 y 

IF S < J><S< 

J-l> THEN 

1828 

i 8 0 0 

SUHP SCJ), 

S < J -1 > 


1810 

SUflP N s < .7) 

, n ± <: j -1 > 


1 8 2 0 

NEXT J 



1830 

f: l S 



1840 

f K IN T T R H i 

8 >:"PRRRS 

TULOS":PRINT 

1850 

FOR M=1 TO 

9 


18 6 0 

PRINT " !! ; 

M: " "; S < M 

>:" ":N $(M > 

1870 

NEXT M 



1880 

L U U fi T E 2 n 1 

9 


1890 

PRINT " UI IS 

1 PELI? P 

HI NR - F' " 

1 900 

PRINT " LOPETUS? 

PRINfl -L-" 

191 0 

PRINT 



19 2 y 

fc.$= I H K E Y = 

IF K= " " 

THEN 1929 

1930 

IF K $ < >“P" 

HMD K$<> 

"p" THEN 1980 

1940 

S C = 0 



1950 

M R = 2 4 



1960 

SCREEN 2,1 




l 
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1978 

3010 8 

30 


1980 

IF K $ < 

Il ^ H 


1 9 9 0 

3GREEN 

0 


200 a KEY UH 



2010 

SOLOR 

15,4, 


2020 

L S 



2830 GOTO 8 

500 


2040 REM ää 

HITEH 


2050 

SOUND 

0 , cL 3 0 


2060 

SOUND 

1,0 


2070 

SOUND 

4,15 0 


2080 

SOUND 

5,0 


2090 

SOUND 

6,15 


2100 

SOUND 

7,42 


2110 

SOUND 

8 , 15 


2120 

SOUND 

9,15 


21 3 ä 

SOUND 

10,16 


214 8 

SOUND 

11,20 


2150 

SOUND 

12,0 


216 ö 

SOUND 

13, 12 


2170 

FOR DE 

= 1 TO 


2180 

SOUND 

8 ,0 


219 0 

SOUND 

9,0 

f""" 

2200 

SOUND 

1 0 , 0 


2210 

RETURM 


■ - 

222 0 

SOUND 

0 ,0 


2230 

SOUND 

1,5 


224 6 

SOUND 

2 ,0 


2250 

SOUND 

3, 13 


2260 

SOUND 

4,255 


2270 

SOUND 

5,15 


2 2 8 0 

SOUND 

6 n 8 0 


2290 

SOUND 

7,0 

““ 

2300 

SOUND 

o ,16 


2310 

3 0 U N D 

9, 16 

’— 

2320 

SOUND 

10 , 16 


2 3 3 0 

SOUND 

11,0 

— 

2340 

SOUND 

12,5 


2350 

SOUND 

1 3,0 

— 

2360 

FOR DE 

= 1 TO 


2 3 7 0 

SOUND 

12,56 


2380 

SOUND 

13, 0 


2390 

SOUND 

6 ,0 

'— 

2400 

“ U R D E 

= 1 TO 


THEN 1920 
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2410 RETURH 
2420 FOR DE = 48 TO 56 
2430 SOUND 7,254 
2440- SOUND 8,15 
2450 SOUND 0,DE 
2460 SOUND 1,0 
2470 NEXT DE 
2480 SOUND 8,0 
24'8W R E T UK H 
2500 END 
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URUT 



Tässä on mahdollisuutesi kokeilla MSX-tietokoneesi musiikki- 
mahdollisuuksia sekä opetella pianonsoittoa ja tulla vaikkapa 
Mozartin kaltaiseksi mestariksi. 

Ylärivin kirjaimia (alkaen Q:sta) painamalla saadaan 10 nuot¬ 
tia. Voit itse halutessasi laajentaa nuottivalikoimaa noudatta¬ 
malla rivien 150-340 mukaista tapaa ja käyttämällä muita 
näppäinrivejä. 
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Ohjelma: URUT-JS 


1 HM 

K h H + 4: -i: afe *: :* *: 


1 10 

P P hi ;i-: ;i; 


I yy 

R E M U R U T 


1 ' C i 

K E M : + : : + : 


i ..i :*a 



1 ~i fi 

REM 


1 ~.£i 

PLAY "Tl20L4“ 


170 

SLREEN W 


18 0 

C 0 L 0 R 1 ? I h 


.19 0 

f* j C; 


210 

s— L* H 1 TL ? »_« 

PR I NT 11 S o i t ta m i 

n e n t a p a h t u. u n ö. p p ö. i m i 11 

Ö. 

« „ « 

J U E R T Y UIO F’. . « " 

2 2 Q 

L O C A T E 0,2 3 


d o ö 

H i = IN K E V $■ 


2 4 6 

IF A$~"" THEN 2 

38 

il 5 ö 

IF fi$ ="Q" THEH 

PLAY "02F" 

il ö 0 

ip p;$ = >* y 11 THEN 

PLAY "02G" 

il‘ 7 0 

IF A$= "E" THEN 

PLAY "02A" 

289 

IF A $ = "R" THEN 

PLAY ”02 Ei" 

2 9 8 

IF A$= "T' THEN 

PLAY "03C" 

3 8 0 

T p h -$ — 11 V 11 T M F M 

PLAY "Q3D" 

1 Ö 

IF R$="U" THEN 

PLAY "03E" 

o ^ 

IF R$="I" THEN 

PLAY "03F" 


tf h % — "0" THEN 

PLAY "03S" 

4 tf 

IF fl$= ,i P" THEN 

PLAY "03H" 

i “i 5 y 

SOTO 230 
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PAKOILU 



Tässä pelissä neljä ilkeän näköistä, vihreää kummitusta ajaa 
sinua takaa ja yrittää tuhota sinut. Kuten tiedämme, kummi¬ 
tukset voivat kulkea helposti seinien läpi, mutta sinä et siihen 
pysty. 

Voit kulkea sokkelossa käyttäen kohdistimen ohjausnäppäi- 
miä. Pisteitä saadaan pysymällä hengissä. Sinun täytyy käyt¬ 
tää järkeäsi ja salamannopeita refleksejä liikkuessasi, sillä 
tämä on vaativa peli. On saavutus saada yli 1 500 pistettä. 
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Tietoja ohjelmasta 


Rivin nro 

180-210 

220-270 

280 

300 

330-350 

360-420 

430 

460-500 

530 

550-620 

690-760 

780-790 

810-1150 

1170-1290 

1310-1410 

1430-1480 

1510-1700 

1710-1780 

1800-1820 

1830-1850 


Kuvaruudun alkuasetus 
Otsikko 

Avaa tiedoston hienografiikkaa varten. 
Asettaa äänen tempon ja nuotin keston. 
Odottaa ohjetta näppäimistöltä. 

Uusi asema 

Tarkistaa osuman seinään tai kummitukseen. 
Liike 

Valitsee kummituksen satunnaisesti. 

Liikuttaa kummitusta. 

Määrittelee spritet. 

DATA-tiedot spriteja varten 
Piirtää sokkelon seinät. 

Alkuasemat ja paikat spriteja varten 
Pääohjelma - kutsuu aliohjelmat ja lisää 
tulosta. 

Kummitukset saivat sinut. 

Laskee ja tulostaa parhaat pisteet. 

Uusi peli? 

Viive 

Kuvaruutu alkutilaan 


Ohjelma: PAKO-JS 


1 ö 6 R E M * + * * * * * * * * 

110 REM * * 

120 REM * PAKOILU * 

130 REM * * 

1 4 0 R E M * * +- * *:+: * *+ * 

150 REM 

160 REM KUUfiRUUDUN HLKUOROOT JNE. 

170 DEFINT 0-2 
180 COLOR 1,15 
190 SCREEN 8 
200 CLS 
210 KEY OFF 
220 LOCOTE 13,9 
230 PRINT "ROKOILLA' 

240 LOCOTE 0,21 

2 5 0 F' RIN T "Peli ai k a a, k u. ti p a i n at jota! n 
Tl ö. p p ö. i Tl t ö." 
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260 A$=INKEY$ 

270 IF A$=" H THEN 260 

289 OPEN "GRP: “ RS 1 

290 REM ASETTAA RYTMIN JA NUOTIN KESTON 

309 PLAY “T255L64" 

310 SOTO 640 
320 REM LIIKE 
330 Kf-= I NKEYt 

340 IF K $ =" " THEN S O S UB 13 W0:G O T O 51@ 

350 K-ASC c K$ > 

3 6 0 M K — R M 
370 MC-CM 

380 IF K=28 THEN MC-MC+l 

390 IF K=29 THEN MC-MC-1 

400 IF K=30 THEN HR-MR-1 

410 IF K = 31 THEN MR-MR+1 

420 IF MC<3 OR MC>31 OR MR<1 OR MR>24 THEN 
51 0 

4 3 0 M = P OINT <M C*8+4,M R *8 + 4 > 

440 IF X=12 THEN 1430 

450 IF X = 4 THEN 510 

460 IF MR=RM AND MC=CM THEN 510 

470 PLAY "05C" 

4 8 0 P U T S P RIT E 1,(M C * 8,M R*8 >,13,1 

4 9 0 R M = M K 
500 CM=MC 
510 RETURN 

520 REM KUMMITUKSIEN LIIKE 

5 3 0 R = IH T < R H D < 1 > * •+ > +1 
540 IF R=5 THEN R=1 

550 IF N S C R,1>=MR THEN 590 
56 0 N S < R, 1 > = N S < R , 1 > + S G N < M R - N S ( R , 1 > > 

578 P U T S P RIT E R+l, N S < R, 2 > * 8, H S < R, 1 > * 8 > , 
12,2 

580 PLAY "03D" 

590 IF NS<R,2> = MC THEN 628 

6 80 NS<R,2>=NS < R,2 > +S G N cM C-N S < R,2 > > 

610 F’UT SPR I TE R+ 1, < NS < R , 2 > +8, NS C R , 1 > *8 > , 
12 ,2_ 

620 IF M R = N S < R,1> AND M C = N S c R,2 > THEN 1430 
630 RETURN 
640 CLS 

650 COLOR 15,1,1 
66 0 S C R E E H 2 
670 RR-RND<-TI ME > 
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6 S 8 

REM SPKITE-MÄÄKI1 I EL 

f 

b y h 

FOR K=1 TO 2 


700 

P $■ = ” ” 


7 1 W 

1“ U K -T — y 1 H 7 


f id U 

R E H D D ±- 


7 3 0 

p ■$ =p$+C H R $ <: U flL< “ & H “ + 

D± } } 

740- 

N EKI J 


“7 ST >"•} 

SPRITE$<K}=P$ 


7 b y 

NEXT K 


"7 "7 pj 

REM SPRI TE DflTfi 


“7 o p* 

D H 1 H 8 K,4 4,y s,bC, H H , 

38,44,06 

"? C| p| 

D H T H 38,7C,Bfl,FF,FF, 

06 , 38 , 38 

Ei 0 8 

RFM SOKKELON PIIRTO 


810 

h 0 K J — 8 ' 0 8 0 S i E P 6 


;-! V L~i 

P K E b E T K b 4 7 -7 : + : o ) 


8 3 8 

COLOR 4 


840. 

PR I NT# 1 , STRI NGt <10,2 

19} 

850 

PRESET <112,J + 8 } 


j-. L-i 

PR I NT# 1, STR IN G f- <9,21 

9 

O “ Ci 

PRESET <192,J+8} 


880 

PR I NT# 1 , STR IH G t- <7,21 

9} 

: s ~l L-4 

NEXT J 



9 S 8 F 

0 k; J ” 4 

1 U 1 b S ! E P b 

918 P 

K E b L 1 

<24,J+8} 

9 ii ö r 

RI NT #1 

, STRIN6$ <15,219 

9 3 8 P 

K h b E T 

<152,J+8} 

M 4 Pt j— : 

RI NT#1 

, STRINGt <12,219 

Cs sr ia r-J ET V T T 

7 -_= • i i_ ,**. i J 


S b fcj r 

OR J = 6 

T O i 8 S T E P 6 

q 7 fi p 

RESET 

<24,J+8} 

9 8 0 F 

RI NT#1 

, S i RIN G i < 6 , 2 19 } 

990 F 

RESET 

< 80 , J + 8} 

1 0 0 0 

PRINT# 

1 ,STRINGt<Ib,21 

i 018 

PRESET 

<216,J+8} 

1 O 2 £i 

PRINT# 

1 , STRINGt <4,219 

1 0 3 0 

! 11 A i -J 


1 0 4 0 

P R E S E T 

<24,17b} 

1 0 5 0 

PRINT# 

1 , STRINGt<28,21 

1 ö C H 

PRESET 

<24,16} 

j. ■'} : ’ ! 

PRINT# 

1,8 T R I N G t < 2 8,2 1 

1 s3ö0 

1~ U K J — 

2 TO 22 

i 8 9 li 

PRESET 

<16,J+8} 

1100 

PR I NT # 

1 , C H R $ < 219 } 
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1120 FOR J=2 TO 22 
1130 P RE SET <248,J *8> 

1140 PR INT#1,CHE# < 219 > 

1150 NEXT J 
1160 REM ALKUASEMRT 
1170 NS<1,1>= 3I NS<1,2>=5 
118 ö N S < 2, 1 > = 3; N S < 2,2 > = 3 0 
1196 NS< 3,1> =21:NS<3,2 > = 5 
1200 NS <4,1> =21:NS<4,2 > =30 
1210 PRESET <80,0;' 

1220 COLOR 15 
123 0 P R IN T # 1 , " T!J L O S = " 

1248 FOR J=1 TO 4 

12 5 ö P U T S P RIT E J +1, < N S < J, 2 > * 8, H S < -J, 1 > * 8 > 
1260 NEXT 3 


1270 MR=11:MC=18 
1286 RM=11:CM=13 

129ö F'UT SPRITE 1 , < MC*8 , MR : + : 8.3, 1 3, 1 
1300 REM PääOHJELMASILUUKKA 


1319 G O S U B 3 3 0 
13 2 0 6O S U B 5 3 0 
13 3 0 G O S U B 3 3 B 
1340 SC=SC+10 
1350 PRESET <144,9) 

1360 COLOR 1 

1370 PR INT#1,STRING#<8,219) 
1380 PRESET <144,0> 

1390 COLOR 15 


1408 
1410 
1420 
1430 
1440 
145 0 
1460 
1470 
1480 
149 0 
1 5 0 0 

< C 1 fj 

i 1 0 

1520 

1530 


PRINT#!,SC 
GOTO 1310 
REM JÄIT KIINNI 
SOUHD 7,56 

P L H Y " O 5 B fl F E D C O 4 B fi F E D C O 3 BFiFE D C " 

P K E S E T < 5 0,9 0 > 

COLOR 3 

PRINT#!,” PELI OHI" 

FuR DE= 1 TO 2500: NEXT C)E 
SCREEN 9 
COLOR 15,1 

PR INT "SflIT";SC;"PISTETTÄ":PRlNT 
INPUT "MIKÄ ON NIMESI”;NM# 

IF LEN < N M$ >>15 THE N P RINT ”H IMI ON 


LIIRN PITKä! ”:PR I NT;GOTO 1520 
1540 REM PARHAAT TULOKSET TAULUKKONA 


12 
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1550 

S C 10 > = SC 


156 0 

Hi f 1 6i > = NH$ 

l •—* i ö 

F U K J — 1 01 

TO 2 STEP-1 

1580 

IF S(JXS 

< J - 1 > THE N 1610i 

15 9 0 

SUH P S f 3 > 

, Sf J-l > 

16-001 

SURP Hi C.J 

>,Hi f J-l > 

1610 

HE KT J 


1620 

CLS 


1630 

PRINT T HB 

f8 ) ;"PARAS TULOS":P 

1640 

FOR M=1 TO 9 

16* 5 0 

PRINT " " 

; M ;" " ;S<M>;" ";N$< 

16 6. ti 

N E KT M 


167 0 

LOCflTE 2, 

19 

1680 

PRINT "UU 

SI PELI? PAINA 'p'» 

16 3 01 

PRINT ■' 

L 0 P E T U S ? P A I N A ' L 

1 7 8 01 

PRINT 


1 710i 

K$ = I NKEYi- 

: IF Ki = " " THEN 1710 

1720 

PLflY “05C 

<! 

1738 

i. : i **. 4** \ / j— 

" AND K$< >" P"THEN 1 

1740 

s c ~ 0 


1 7 5 0 

8 L- K E h H 2 


1 7601 

GOTO 810 


17 7 01 

IF K*="1" 

OR Ki="L" THEN 183 

1780 

GOTO 1710 


17 9 O 

REM UIIUE 


1 8 0i 0. 

FOR DE=1 

TO 25 

1 8 1 01 

NEKT DE 


1820 

RETURN 


1830 

COLOR 15, 

4,4 

18 4 0 

R E Y U H 


18 5 ti 

CLS 


1860 

END 
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VinceApps 


Q 

t 

f •' 

L. J. 

□ 

h 


MSX on moniin kotitietokoneisiin sopiva standardi. 
Tämä pelikokoelma on kirjoitettu tyydyttämään MSX- 
standardin synnyttämää kysyntää. 


Voit testata reaktioitasi ja sorminäppäryyttäsi ARCADE- 
peleillä. Pääset mukaan nokkeluutta ja muistia kehittä¬ 
viin SEIKKAILUIHIN. Ratkaiset ARVOITUKSIA. Pelien 
joukosta löydät myös ohjelmointitaitojasi parantavia ru¬ 
tiineja. 
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